RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR FR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR = RRR 

RRR = RRR 

RRR = RRR 

RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 


a a a a a a a a a a tt a st st st st tt 
St st st St St Ht 
Att ta 4 tt SH St HH Ht tt 


PPPPPPPPPPPP 
PPPPPPPPPPPP 


PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 


PPPPPPPPPPPP 
P P 


AAAAAAAAA 

AAAAAAAAA 

AAAAAAAAA 
ARR 
AAA AAA 
AAA AAA 
AAA AAA 
AAA AAA 
A AAA 
AAA AAA 
AAA AAA 
AAA AAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAA AAA 
AAA AAA 
AAA AAA 
AAA AAA 
AAA AAA 
AAA AAA 


DDDDDDDDDDDD 

DDDDDDDDDDDD 

DDDDDDDDDDDD 

DDD DOD 
DDD DOD 
DOD DOD 
DOD DOD 
DDD DDD 
DDD DOD 
DDD DOD 
DDD DDD 
DDD DDD 
DOD DDD 
DDD DOD 
DDD DOD 
DOD DOD 
DDD DDD 
DOD DDD 
DDDDDDDDDDDD 

DDDDDDDDDDDD 


DDDDDDDDDDDD 


**F ILE**1D**CTDRIVER 4 

CCCCCCCC ~TTTTITITTT DDDDDDDD = RRRRRRRR IIL = WV VV EEEEEEEEEE RRRRRRRR 
CCCCCCCC TTTTTTTTTT DDDDDDDD = RRRRRRRR HII = ow VV EEEEEEEEEE RRRRRRRR 

cc TT DD DD RR RR II vv vv EE RR RR 

cc TT DD DD RR RR II vv vv EE RR RR 

cc TT dD DD RR II vv vv EE RR RR 

cc TT DD DD RR RR II vv vv EE RR RR 

cc TT DD DD RRRRRRRR I] vv VV EEEEEEEE = RRRRRRRR 

cc TT DD DD RRRRRRRR II vv VV EEEEEEEE = RRRRRRRR 

cc TT DD DD RR R II vv VV EE RR RR 

cc TT DD DD RR RR II vv vw EE RR RR 

cc TT DD DD RR RR II vw vw OEE RR —s RR err 

cc TT DD DD RR RR II vw WwW EE RR ~—sRR oeee 
CCCCCCCC TT DDDDDDDD ~— RR RR sIIIIL vv EEEEECEEEE RR RR cece 
ccccccce TT DDDDDDDD ~—S RR RRsOILIII wv EEEEEEEEEE RR RR eave 

LL III] SSSSSSSS 

LL HII SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] Ss 

LL I] SSSSSS 

LL I] SSSSSS 

LL 1] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LLLLLLLLLL §=sS'IIII «=—s SSSSSSSS 

LLLLLLLLLL =sSTIIII «= SSSSSSSS 


aon 
o- 


cv 
~-m 


7- 


~ 
one 
UNO 


WWW O00 SS NOOL Oo 


WO 09 0 COCONUT NI" WOOWOW 


coo BOUSRORBIYN— Ow oWoes 


INPORETOORORononofofnonony ] = oo 
oc 
MoO co 


OO ews 


S 


Se 


LL LOLOL LL LL LL LL LL LLL LL LL ee Pee me 
a a et a a a a er a a ee a a ee ee ee ee ae ee ae ee ee ee 


Quik fWO 
frMmwoe 


ASANO 


3 


1 


MESSAGE BLOFK 

E = Function Decision Routine for WRITE Functions 
E FILLIN = Fill buffer with write protocol 
QE = Set up and queue TQE 
EUP = timer wakeup routine 
READ = Lunes top Decision Rout ine for READ cones tere 
“READ_ITMLST = FDT routine for read with item Lis 
“SETMODE, Function Decision Routine for SETMODE/SETCHAR 
TUP_OUTBAND = Format out of band message 
T A OOB DATA = fetch data from OOB Lis 
' ERSERODE Funct ron Decision Routine for SENSEMODE/SENSECHAR 
support rout 
TA tPbe "MESSAGE. “AL Locate a message buffer 
LOC_CTP"- allocate a CIP 
NTERRUPT laterrust nendler 
ANSE_SPAWN Sense for spun 
ECK-POST_I0, validate 1/0 to be posted 
ACEL, Cancel 1/0 routine 

GUP = Perform hangup functions 
RTIRPS = Abort irps outstanding 
TE_WRTCTP = Send WRICTP to NET 

nSCSe SEND = Send message to net driver 

WRIDONE = Post routine for net write 

OLIC Unsolicited interrupt handler 

EADDONE = Post routine for net receive 
ION = Miscellaneous foundation message 
TERM = Foundation CTERM message 

S UNREAD = Cancel irps 
aay UNBIND = send unbind foundation message 

“EN 


SRASEESR MEAD 
SaGea=85 


[oon=D 


RCV = initial net startup code 
IRP = Manufacture an internal irp 
End of driver 
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1; ; mete conus on/off 
G=1 ; logging on/off 
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> FACILITY: 

; VAX/VMS Remote Terminal Driver 

; ABSTRACT: 

; This module contains the remote terminal driver routines. This driver 
5 is used by the application process side of the operation. In other 


words, it receives the Q10 requests from the process that does not 
have local access to the terminal. 


SOOoCoooooooooooooooooo 


This driver's primary function is to receive Q10 system service 
requests, repackage the Q10 arguments, and hand the new package to 
the tranport mechanism for delivery to the remote terminal | 
handler process on the system with loca! access to the terminal. 
The transport mechanism is DECnet. Necdriver is called directly 
via the internal IRP mechanism. 


; AUTHOR: 
Jake VanNoy 3-Aug-1982 
MODIFICATION HISTORY: 
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not a queue. 


v03-010 JLV0388 Jake aa 25-JUL-1984 
Add CTERM bugcheck code. Add code to do implicit 
enable of “C when set host from RSX. Enhance 
Logic that returns SS$_CONTROLY to also return 
SS$_CONTROLC (for BASIC 
SS$_INCOMPL for read ver 


v03-009 JLV0359 Jake VanNoy 11-JUL-1984 
Add paranoia code to IOPST. Fix bug that returned 
extened mode I0SB for regular read. Pick up SYSPASSWORD 
from HOST system, not server. 


V03-008 JLV0349 Jake VanNoy 10-APR-1984 
Send UNBIND at refc=0 and setmode HANGUP. 
Fix bug in writes larger than single buffer. 
Make sure UNREAD message is sent from CANCEL routine. 
This fixes a problem exhibited by the PHONE utility. 
Fix _e that did not set CANCEL “*O on first write 
after DISCARD OFF received. Fix all calls to COM$SDELxxxAST 
to have PID as input. 


v03-007 LMP0221 L. Mark Pilant, 30-Mar-1984 11:43 
Change UCBSL_OWNUIC to ORBSL_OWNER and UCB$W_VPROT to 
} 
| 
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2g v03-011 LMP0308 L. Mark Pilant, 31-Aug-1984 11:53 
Change the default ACL state in to ORB to be a descriptor, 


group). Add code to return 
y- 


NNN NNO AAO AAOAAOO 
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ORBSW_PROT 


v03-006 JLV0338 Jake VanNo 
Replace PSECT removed in J 
remainder of modules. 


V03-005 JLV0335 Jake VanNoy 28-F EB-1984 
Clean up SET MODE function code parsing. Add suppor’ 
for set and sense broadcast, set pid. Return SS$_DEVREQERR 
for modem or maintenance functions. 
Make check in WRITE FDOT routine to be sure that 
current PID equals PID doing Last write. f 
they are not equal, an old oty\e single shot 
write is done. Rewrite out of band my ee 
Add use of cursor position offset from EOL in READ_DATA, 
Shorten CTP Queue parameters. Removed CT_BROADCAST routine. 
Remove debug code. Remove use of CTPSL_IRP. 


v03-004 JLV0310 Jake VanNoy — 10-OCT-1983 
Clean up Logging assembly switches for PLUTO team. 
Fix race condition in FDOT_WRITE that causes system 
crashes. Change restriction in FDT_READ that blows 
away reads too large for PLUTO. 


Y 1-MAR-1984 
vO335 that set CT_END after 


v03-003 JLV0287 Jake VanNoy 28-JUL-1983 
Numerous cleanup bits. Add INIT mesage pers ing. Add VMS 
specific INIT parameter #4. Change VAS specific Q10 
pretece® to use extended CTERM bits (specified in INIT). 


se receipt INIT to start LOGINOUT. Add checking of 


| § ~QOODODOOO0COOO0O000 00000000000 G9 C0 0D 
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115 ; sowed e o,tenash received from Add sense sone | 

119 5 o CTERM (C ECK_ INP T and INPUT COUNT mess 

V7 ; Change characteristic selectors over to new for 

118 3 Use new STTYUCBDEF for UCB symbols. Add I0$M NEWLINE . 

000 129 3 Add read verify interface. 

; | 

1 1 | Seiad i 
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4:20 (CRTIPAD.SRCICTDRIVER.MAR;1 (2) 
! ? STSADEF 3; Cterm definitions 
! 5 .ENABLE SUPPRESSION 
1 $ SACBDEF 3; AST control block 
1 SAQBDEF ; ACP queue block 
3 1 $CANDEF ; Cancel interface codes 
150 SCRBDEF ; Channel request block 
0 131 SDCDEF ; Device classes and types 
$8 1 ¢ SDDBDEF 3; Device data block 
0 1 SDEVDEF 3; Device characteristics 
BS 134 SDYNDEF ; Buffer type codes 
0 135 SIDBOEF ; Interrupt data block 
00 1 § SIODEF ; 1/0 function codes 
44 1 SIPLDEF ; Hardware IPL definitions 
B28 138 SIRPDEF ; 1/0 request packet 
000 139 $JIBDEF ; Job Information block 
44 140 SMSGDEF 3; Mailbox ogesage Eypes 
000 141 SORBDEF : Object's Rights Block 
0000 126 SPCBDEF ; Process control block 
0000 14 SPROEF 3 Processor registers 
0000 144 SPRVDEF ; Privilege bits 
0000 145 SPSLDEF ; Processor status longword 
0000 146 peer SREMDEF 3; General constants 
0000 14 $SSDEF 3; System status codes 
0000 148 STASTDEF ; Out of band AST blocks 
0000 193 STQEDEF ; Timer Queue Entry 
0000 150 STRMDEF ; Item List definitions 
0000 =151 STTDEF : Terminal definitions 
0000 13 STT2DEF ; More definitions 
0000 = «15 STTYDE 3; Terminal driver definitions *** remove wit 
0000 154 STTYSYMDEF ; TTY symbols and constants 
4444 155 SUCBDEF ; Unit control block 
000 156 STTYUCBDEF ; local/remote terminal UCB 
0000 157 SVCBDEF ; Volume control block 
0000 =«—158 SVECDEF 3; Interrupt vector block 
44 159 
000 160 ; 
0000 161 ; Local symbols 
000 196 3 
000 16 
+ 164 ; 
0 166 3; Argument List (AP) offsets for device-dependent Q10 parameters 
167 ° 
00000000 33 168 P1 = 0 ; First Q10 parameter 
00000004 bp 192 P = 4 ; Second Q10 parameter 
0000008 000 170 P = 8 3 Third Q10 parameter 
000 f 4 171 Pé = 12 : Fourth Q10 parameter 
0000001 0 7 P5 = 16 : Fifth Q10 parameter 
00000014 si V7 P6 = 20 3; Sixth Q10 parameter 
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00000002 


000000C0 


00000110 
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CTSK_FIPL = 8 
CTSKIMAXCTP = *X88+*X88+12+*xX2F 
CTSK“CTPGLIM = 3 
CTSKICTPLOLIM = 1 
CTSK-TQE_DELTA = 2000000 
REMOTE.1 = <tT$ 

T 


REMOTE_2 = <TT2$M_AUTOBAUD> 
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IPL to synchronize 


Size of write CTP to allocate 2? 
Desired low number of queued CTP 


: Maximum number of queued CTP's 


; tae wakeup delta (200 NT iToessnae 


mM 

TA 

TTSM gga pe TERE ood ESCAPE! TTSM_HOSTSYNC! TTSM 1 Mpls LOWER! = 
Lb +f ECH at Hoh 4 ; ITSM CREILL! TTSM_LFFILL 


$M" SCOPE! TTSM 
TT$M_ “WOLDSCREENTITSM, EiGHTBIT!TTSM -MECHF ORM! TTSM_MODEM! TT$M_PAGE> 


Definitions that follow the standard UCB fields 


~SAVE LOCAL BLOCK 
-PSECT SABSS,ABS 


UCBSL_CT_RIIRP = UCBSL_RTT_NETIRP 


SVIELD TQE, 0. <- 
<BSY 


<oELETE,| 1/M>= 
- = UCBST_CT_DEBUG_FILL : 
3; up to 10 Longwords allowed here 
UCBSB_CT_CRFILL: -BLKB 
UCBSB_CT"LFFILL: -BLKB 
UCBSW"CT"SPEED: -BLKW 
UCBSL_CNT_TQE: -BLKL 
UCBSL~CNT~OVR: -BLKL 
UCBSL~CNT~FRC: BLKL 
UCBSL_CNT_ADDOR: BLKL 
UCBSL-CT_PID: «BLKL 
UCBSL_CT_INCLUDE BLKL 
UCBSL_CT_EXCLUDE BLKL 
UCBSL_CT_ABORT: BLKL 
UCBS$W_CT_PARITY: -BLKW 
-BLKW 
e RESTORE 


; Redefinitions of the irp fields 


3; Read Internal IRP address 


3 i269 in FR3 definition 
; TQE is queue 


; terminal has hungup, delete TQE 


eee temporary 


; CR Fill 
s UF Fill 
3; speed 


addre 
aet odd to TTYUCBDEF 
wary 


3 parity 
3; Spare 


TQE flush count *** performance hook 
CTP overflow flush count *** performance h 
: 4+ Asedl flush count *** performance hook 


cus 
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é “CT“CANCEL 
IRP W~CT"POST 
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ATE , 3 : 170° posted tag 
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39 .SBTTL Standard tables | 
| 
41; 
tg ; Driver prologue table | 
44° 
45 DPTAB = ; DPT-creation macro 
rf END=CT aaa - 3; End of driver Label | 
3 4 ADAPTER=N ; Adapter type 
00 8 UCBSIZE=<UCBSK. RTT_LENGTH>,= ; Length of 
003 2 NAME=CTORIVER ; Driver name | 
09 24 DPT_STORE INIT 3; Start of load 
83 26 ; initialization table 
00 5 DPT_STORE DDB,DDBSL_ACPD, ‘on ; Default ACP name 
003F 54 DPT_ STORE DDB. ODBSL— ACPD+3,8,3 ; ACP class 
0043 255 DPT“STORE UCB,UCB “FIPL.B.CTSK. FIPL 3 Device fork IPL 
0047 2§ DPT_STORE UCB,UCB$B_DIPL,B,CTSK_FIPL 3; Device interrupt IPL 
0048 5 DPT_STORE UCB, UCBSL “DEVCHAR,L, <= : Device characteristics 
0048 58 DEVS *REC!= : record device 
0048 59 DEVSM_AVL |= ; available 
0048 60 DEVSM_IDV!- ; input device 
0048 61 DEVSM_ODV!- ; output device 
0048 6¢ avee-rere ; terminal device é 
004 6 DEVSM_CCL> 3 carriage control device 
005 64 DPT_STORE UCB, UCBSL_DEVCHAR2,L,<- ; Device characteristics (2) 
005 65 DEVSM_RTT> 3; remote terminal UCB extension 
005 66 DPT_STORE UCB, “UcBsu STS,W,<- 3; Device status 
0059 67 UCBSM_VALIDS 3: set valid 
$025 68 pPT_STORE U ucB, “UCBSB. DEVCLASS,B,DC$_TERM ; gn aeeen 
006 69 DPT“STORE UCB.UCB$B_DEVTYPE,B,fT$_ONKNOWN ; Unkno ype 
0066 270 DPT_STORE Ure Uae “DEVBUF SIZ. aw, TTYSGW _DEFBUF ; Detar t buffer size 
006D 71 DPT-STORE UCB,UCBSL_ ht eh aL, TTYS$GL_ “DEFCHAR ; Default choractertetics 
0074 ie DPT_STORE ORB,ORBS$B_FLAGS,B,- ; Protection block flags 
0074 7 ZORBSM’ PROT ; SOGW protection word ? 
0078 74 DPT_STORE ORB,ORB$W_PROT aw, Ot rscw PROT ; Default allocation protection 
orf 373 DPT“STORE ORB,ORBSL-OWNER,@L,TTYS$GL_ OWNUIC ; Default owner UI 
0086 77 DPT_STORE REINIT 3; Start of reload 
0086 ee : initialization table 
0086 7 DPT_STORE DDB, ttt =poT 3D CTSDDT :; Address of DDT 
0088 280 DPT“STORE CRB,C NTBedcD D.- : Address of interrupt 
0090 e CT_I re tEnee 3: service routine 
09 § DPT_STORE END : End of initialization 
0000 : 3 tables 
00 § 3; Driver dispatch table 
8 3 DDTAB - : DDT-creation macro 
0 DEVNAM-CT,- : Name of device 
0 90 FUNCTB=CT_FUNCTABLE,- ; FDOT address : 
91 UNSOLIC=CT_UNSOLIC,- : Unsolicited attention routine 
35 CANCEL=CT_CANCEL : Cancel I/0 routine 
94; 
95 ; Function dispatch table 
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CT_FUNCTABLE: 
FUNCT 
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FDOT for driver 
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o* ; Valid 1/0 functions 
<READVBLK,= 3; Read virtua 
1 READLBLK,= ; Read logical 
§ READPBLK,- 3; Read physical 
READPROMPT, = : Read with prompt 
4 TTYREADALL,=- 3; Read passall 
05 TTYREADPALL ,- 3; Read with prompt passall 
$ WRITEVBLK,=- 3 Write virtual 
WRITELBLK,= ; Write logical 
8 WRITEPBLK,=- : Write physical 
09 SENSEMODE ,- ; Sense device mode 
10 SENSECHAR,=- : Sense device characteristics 
11 SETMODE,- 3; Set device mode 
\§ SETCHAR> 3; Set device characteristics 
1 7 ; Buffered functions 
14 <READVBLK,=- ; Read virtual 
15 READLBLK,-=- 3; Read logical 
1g READPBLK,-=- 3; Read physical 
1 READPROMPT, = : Read with prompt 
18 TTYREADALL,- 3; Read passall 
19 TTYREADPALL ,- ; Read with prompt passall 
0 WRITEVBLK,- 3; Write virtual 
1 WRITELBLK,=- ; Write logical 
§ WRITEPBLK,=- 3; Write physical 
§ SENSEMODE ,- ; Sense device mode f 
4 SENSECHAR,- 3; Sense device characteristics 
5 SETMODE ,- ; Set device mode ’ 
6 SETCHAR> 3; Set device characteristics 
7 CT_READ,=- ; FDOT read routine for 
28 <READVBLK,=- 3 read virtual, 
4 $3 READLBLK.-=- ; read logical 
0 READPBLK,- 3; read poystce P 
8 331 READPROMPT, - : read with prompt 
3 TTYREADALL,- 3; read passall, 
004 3 TTYREADPALL> : and read with prompt passall 
0054 34 CT_WRITE,- : FDOT write routine for 
Onee 35 <WRITEVBLK,=- 3 write virtual, 
054 6 WRITELBLK,=- : write logical, 
0054 7 WRITEPBLK> 3; and write physical. 
0060 3 FUNCTAB CT_SENSEMODE,- ; FDT sense mode routine 
B868 3 <SENSECHAR,= : for sense characteristics 
6 40 SENSEMODE> 3; and sense mode. _ 
006C 41 FUNCTAB CT_SETMODE,- ; FDT set mode routine. 
¥e8 4g <SETCHAR,= : for set characteristics and 
06C 4 SETMODE 3 set mode. 
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45 .SBTTL Read status table 
47 stat_table: 


20$: 


input state message here 


3 C_INIT_MSGLEN = .-INIT_MSGBLK 


98 .DSABL LSB 


23 
+3 wor $$$_NORMAL 
4 word SS$_ Ma etry 
50 -word SS$_NORM 
51 -word $$$-CO NIROLY 
26 «word S$S$_NORM 
5 -word S$S$_ TIREOUT 
54 -word S$S$_ ore 
55 -word S$S$_NOR 
2$ eword S$S$_ PARTESCAPE 
5 word SS$ NOR 
28 -word SS$_PA arty 
5 word SS$_PA ait 
60 word SS$_PARITY 
61 -word SS$_DA for 94 
66 -word SS$_OPINCOMPL 
o7 -word SS$~ “NORMAL 
2 -SBTTL INIT MESSAGE BLOCK 
e -ENABL LSB 
LK: 
$3 INIT_MSGB 
71 1$: -WORD 20$-10$ 
ie 10$: -WORD CTPSC_MT_INIT 
7 -—BYTE 1 
74 BYTE 3,0 
75 -QUAD 0 
76 wT: oo 
77 -BYTE 2 
78 W_INIT_BUFSIZ = .-1$+CTPSW_MSGSIZE 
4 “WORD 0 
81 -BYTE 3 
fi BYTE 4 
$7 eLONG %*B0111111111111111110 
5 
Bg 
f 
90 WORD crpsc _CH_PROLEN+2 
91 ~ WORD CTPS$C~ “aT- CHA 
35 -WORD <CHSC”CTERM@8!- 
9 cHsC CT_INPUT_COUNT> 
3¢ ~ WORD 


SECTORS REARS AIDS deseodc® 


Sete Se Ge Ge Se Ge Be Se 


Page 
RTPAD.SRCICTDRIVER.MAR; 1 


terminator character 

valid escape ee 

invalid escape sequen 
out-of-band cherecter (*c/4¥) 
input buffer full 

time out 

unread (*** why not CANCEL?) 
underflow 

absentee token 

rees*ees acer change 
Line b 

oniaa. error 

parity error 

receiver overrun 

VMS ONLY = operation incomplete 
15 is just for grins 


2 2 CONVO EWI O 


USwWwn—oO 


Length of cterm protocol 
ini naegnne type, zero flags 
versi 
0 eco, gh mod 
No rovers 
ptm ig Ae 
ength in bytes 
Offset to pe field 
data filled in 


arameter 3 
th in byt 


3 valid Bk. 0. Se 17) 


end of INIT, also send initial characteristics here 


rotocol jenges 
haracteristics and flags 


; set SRN CORUNE “STORE 


no-read sen 


—— 
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4 
00000002 83 Z ° POST_COUNT = 2 ; 0 is FINISHIO, 1 is ABORT 
53 : § «MACRO POST_10,7L1 
B9 405 -LIST MEB 
9 4 $ MOVZBL #POST_COUNT,RO ; set position 
0B9 4 BSBW CHECK POST_fo ; check for error, set posted 
0B9 t88 JSB G*COMSPOST ; post 1/0 
089 409 -NLIST MEB 
0B9 410 
93 $1] POST_COUNT = POST_COUNT + 1 
0089 118 -ENDM POST_IO 
00B9 414 
0089 415 .if df DEBUG_LOG 
0089 $1$ 
00B9 417 ;*** OPT macros are debug only 
3088 418 
0B9 419 OPTSV_LOGGING = 0 
00B9 420 
00B9 421 .macro_ IFOPT ae at 
00B9 4 ¢ -1F DF DEBUG_LOG 
s'o94 ? ? BBS #OPTSV_‘option',G*SGNSGL_VMSD4,'Label' 
$089 425 BBS #OPTSV_‘option’,VMSD4,"Llabel’ 
00B9 426 -ENDC 
00B9 427 .ENDM IFOPT 
00B9 428 
0089 £83 macro IFNOTOPT cpt ton, Label 
0089 430 -I1F DF DEBUG_LO 
0089 431 BBC #OPTSV_‘option',G*SGNSGL_VMSD4, ‘label’ 
0089 $36 IFF ‘ 
0089 4 BBC #OPTS$V_‘option’,VMSD4,'Label' 
00B9 434 EN 
00B9 435 .ENDM IFNOTOPT 
0089 $38 
0089 437 .endc ; DEBUG_LOG 
0089 438 
00B9 439 


OOOOOCOooooo oa 


ttt thet ttt t 
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te -SBTTL CT_WRITE = Function Decision Routine for WRITE Functions 
CT WRITE = Function Decision Routine for WRITE Functions 
Functional description: 


This routine is called by the SYS$QI0 service to dispatch a WRITE 
1/0 request. 


» 
be 


wr 


@Bowwmwooow ms 


The Q10 parameters for terminal WRITES are: 
P1 = address of the buffer 


P2 = size of the buffer 
PS = (unused) 
P4 = carriage control specifier 


The buffer is validated for access, the process's quota checked and 
decremented, the data and corr vege control are copied to a message 
block, and the appropriate queueing of the message is done. 


Pw a a a ot ot meee 
DDD DDE SE 


PWN 9 OONAUE UP" OOONOUNS 


Bete Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge GseGse Ge Ge Se Fe Ge Ge Se Sete 
$ 


SOOO CCOCOCOOOCOCOOOOOOOOOOOooOOo 


Inputs: 
0B RO-R2 = scratch regist 
0B R3 = address of the IRE. {1/0 request packet) 
0B9 465 R4 = address of the PCB (process control erect) 
00B9 466 R5 = address of the UCB (unit control block 
0089 467 R6 = address of the 5Ce (channel control Stock) 
0089 468 R7 = bit number of the I/0 function code 
00B9 469 R8 = address of the ‘oi sane entry for this routine 
0089 470 RO-R1} = seratch regist 
91694 ia AP = address of the ist. function dependent Q10 parameter 
0089 138 Outputs: 
00B9 474 
00B9 475 IRPSL_SVAPTE(R3) = address of —y A buffer 
00B9 476 IRP$W_BOFF(R3) = eis of message f 
+94 ris IRP$W_BCNT(R3) = size of user ae (by EXESWRITECHK) 
0089 479 The routine preserves all registers except RO-R2, and 
0089 480 R6-R11. 
0089 $3 
00B9 4 ¢ -- 
00B9 4 
Bp88 484 CTRLO: 
EO 9 485 BBS #108¥ _CANCTRLO.« : 
11 20 A 00BB 486 IRP$W_FUNC(R3) ,CAN_CTRLO ; If cancel “O requested, do the write 
50 0609 8F 3 a4 re f4 MOVZWL #SS$_CONTROLO,RO : Set status 
0852 1 3 $88 BRwW FOT_FINISHIOC : Complete 1/0 
Og $30 CT_WRITE: 3; WRITE FDOT routine 
42 AS B44 «=(00C6 $36 CLRW IRP$W_CT_POST(R3) 3; Clear POSTed flag 
EO 00C9 49 BBS #FLG$0_CTRLO,- 
EA OOD C5 OCB 49% UCBS$W_CT_FLAGS(R5),CTRLO ; Branch if in CTRL O state 
OCF 495 CAN_CTRLO: 
bce $38 
02 AA CF 49 BICW #FLGSM_CTRLO,- 
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oopc C5 po) $38 UCBSW_CT_FLAGS(R5) ; Set no control 0 
0D4 0 ; Process all inputs completely before determining where to 
oe 1 3; copy write data. Start by probing the write data. 
m=” a, § D4 : MOVL R7,R10 ; Save 1/0 function code number 
56 6¢ D D7 4 MOVL  PICAP),R6 : Get user buffer virtual address 
50 6 4 ODA 5 MOVL R6,R 3; Set up for write check call 
57 O04 A C O0DD 06 MOVZWL P2CAP),R7 : Get buffer size 
n". F 0 0E1 28 MOVL R7,R1 : Set up for write check call 
06 #1 OE4 08 BEQL 10 : Skip check if zero 
O0000000'GF 16 Q0E6 2% JSB G*EXESWRITECHK 3; Check buffer access 
OEC 10 ; (no return means no access) 
QOOEC 511 108: 
OOEC 216 3 
QOEC 51 ; Map VMS Q10 function modifiers into TSA function modifiers. 
it ele ; Start by setting up CTP$W_WR_FLAGS in R9. 
30 A3 84 O0EC 516 CLRW  —s IRP$W_BOFF (R3) ; Make sure BOFF is zero 
59 =612 C QOEF 517 MOVZWL #<CTPSM_WR_BEGIN!- ; Assume no status requested, no passall 
OOF 518 CTPSM_WR_BEFAFT>,R9 ; mo canctrlo and no refresh 
OOF 519 ; no prefix or gqettts data, begin msg 
5A OB 91 OOF 259 CMPB #10$_WRITEPBLK,R10 3; Write physical? 
05 \s OOF 521 BNEQ 208 ; Branch if not 
59 0800 8F A oer 328 20$ BISW #CTPSM_WR_TRANSPARENT,RO ; Yes, set write transparent 
51 20A3 3C OOFC 524 MOVZWL IRPS$W_FUNC(R3),R1 ; Function code 
Og E4 0100 525 BBSC #FLG$V_CANCTRLO,- 
0B O0DC C 0102 526 UCB$W_CT_FLAGS(R5),30$ ; Internal cancel “O set (set by “Y) 
51 2540 8F B3 0106 527 BITW #<10$A_CANCTRLO!- 
010B 528 10$M_NOF ORMAT!- 
0108 349 IOSM~NEWL INE! - : 
0108 530 IO$M_REFRESH>,R1 ; Optimization, see if all options zero 
~~ Hs 33) BEQL 0$ 
03 51 06 €1 010D 236 BBC #10$V_CANCTRLO,R1,40$ ; Cancel control 0? 
59 08 As at) eee 708: B1SW #CTPSA_WR_DISCARD.R9 : Yes, set ‘do not discard’’ state 
05 51 O8 €1 0Q114 536 BBC #10$V_NOFORMAT,R1,50$ _; Write passall? 
59 0800 8F AB 118 337 nee BISW § #CTPSM_WR_TRANSPARENT,R9 ; Yes, set write transparent 
0351 OD €1 0O11D 539 BBC #10$V_REFRESH,R1,60$ : Refresh after write? 
59 O35 A8 4 i eno 60s BISW #CTPSA_WR_BEFAFTRE,R9 : Yes, set refresh after unlock 
03 51 OA €E1 8 4 $43 BBC #10$V_NEWLINE,R1,90$ ; new Line flag? 
59 040 «AB «(0128 S54 BISW &#CTPSM_WR_NEWLINE,R9 ; set bit (VMS specific) 
12B 544 908: 
12B 46545 3 
! 4 228 ; Set up carriage control 
5A D4 0128 ath €LRL R10 ; use for prefix/postfix 
3C AS OC AC 00 12D 4 MOVL P4(AP), IRP$B_CARCON(R3) ; get carriage control 
4E 13 0132 50 BEQL 140$ ; Ok to continue if none 
00000000'°GF 16 ! : 2] JSB G*EXESCARRIAGE ; Call exec routine to map 
13A 28 3; Set up prefix 
13A 54 : 
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51 3D A3 9A 198 MOVZBL [RPE CARCONST CRS) RY ; Fetch character field for prefix 
ee 1 BEQL 00$ ; If zero, then use newline count 
51 pA 9 14 CMP #TTYSC_LF,R1 ; Also if Linefeed 
1 14 23 BEQL 100$ ; _use newline count 
3C A g 14 5 TSTB siege SARCOMAS? ; See if non-zero character count 
1 1 148 60 BEQL 15$ : Branch if zero 
59 0080 8F AB 146A 61 BISW #<CTPSC_WR_CHAR@ - 
14F 66 CTP$V_WR_PREFIX>,R9 ; Set character flag 
09 11 O14F 6 BRB 110$ ; continue 
59 0040 8F ABs 0151 64 100$: B1SW #<CTPSC_WR_NEWLINECNT@ - 
156 65 CTP$V_WR_PREFIX>,R9 ; Set newline count flag 
51 3C A3 90 O15k 296 1108 MOVB IRP$B_CARCON(R3) ,R1 ; Fetch newline count 
SA 51 90 Bia 208 MOVB R1,R10 ; Set newline count or character | 
b18p 570 3; Set up postfix 
015D 38571 : 
015D 276 115$: 
51 3F AS 9A O15D 57 MOVZBL IRPSB_CARCON+3(R3),R1 ; Fetch character field for postfix 
11 13 0161 574 BEQL 120$ 3; If zero, then use newline count??? 
51 OA 91 90163 575 CMPB #TTYSC_LF,R1 3; Also if Linefeed 
OC 13 0166 576 BEQL 1208 ; _use newline count 
3E AS «695 «20168 ~=— 5577 TSTB IRP$B_CARCON+2(R3) ; See if non-zero character count 
15 13 0168 578 BEQL 140$ ; Branch if zero 
59 0200 8F AB 0160 579 BISW #<CTPSC_WR_CHAR@ - 
p78 580 CTP$V_WR_POSTFIX>,R9 ; Set character flag 
09 11 «+017 581 BRB 130$ 3; continue 
59 0100 8F A8& 0174 286 120$: BISW #<CTPSC_WR_NEWLINECNT@ - 
0179 «58 CTP$V_WR_POSTFIX>,R9 3 Set newline count flag 
51 3E AS 90 0179 384 130s. "¥8 IRP$B_CARCON+2(R35,R1  ; Fetch newline count 
5A 08 O08 51 + #F0 $1>p 586 INSV R1,48,#8,R10 : Set newline count or character 
0182 587 140$: 
0182 588 ; 
0182 589 ; At this point, all inputs have been verified. The remainder 
0182 590 ; of the work here determines where to set up the protncol 
0182 591 ; message. If buffering is off, a buffer is allocated and 
O18s 236 ; Queved immediately to the net. If buffering is on, a current 
018 59 ; buffer is used, if possible, otherwise a new buffer is used. 
018 594 ; For large writes, it is possible for multiple protocol messages 
018 595 ; to be written. 
018 596 : 
06 £0 01 597 Bes #FLGSV_BUFFER,- 
03 OOpc C5 o1 4 398 aad UCBSW_CT_FLAGS(R5).170$ ; Branch if not buffering | 
00ci 31 Oise ony BRW 400$ ; handle non-buffered data | 
b186 O06 ; Note that two processes can be in the write FDT routine for the 
big6 60 ; same terminal at the same time. The following check avoids 
18B 604 3; a second process from messing up the context of the first 
8138 605 ; by avoiding the buffering code. 
i O06 : 
188 607 170$: 
50 0124 C5 4 138 O88 MOVL UCBSL_CT_PID(R5) ,RO : says last writer PID 
0124 (5 60 A4 OD 1 609 MOVL PCBSL-PIB(R4) UCBSL_CT_PID(R ) ; set new writer PID 
0124 ¢5 «650 «10196 = 610 CMPL RO yCBSL_CT_PED(RS) ; compare PIDs 
E 12 0198 611 BNEQ 156 ; Branch if not equal 
| 


C 13 


2 eee enna 


CTDRIVER = Command Terminal Protocol Driver 16-SEP-1984 02:22:54 VAX/VMS Macro v04-00 Page 14 
Vou 000 CT_WRITE = Function Dec Sion Routine for ade 7 68: 4:20 CRIPAD.SRCICTDRIVER.MAR; 1 (9) 
03 E2 0190 61 BBSS #FLGSV_INWRTFDT,=- 
ES OODC C 198 613 UCB$W_CT_FLAGS(R5),150$ ; Set ‘in FDT’’ flag, check for busy 
Hs oF : RB will be data + protccol overhead size 
1A 819 3008: * 
9? C1 1A 618 ADDL3 &#<CTPST_WR_DATA-CTPSW_MSGSIZE>,- 
58 7 1A 619 ; Size of data and protocol overhead 
52 00FC c3 09 1a 620 MOVL UCBSL_CT_WRTCUR(RS) ,R2 : fetch current buffer 
1 Bae ? 1 BEQL 10$ ; Branch if none 
OIAE é : : There is a buffer that is being filled. See if the current 
BiAE ? ¢ ; data fits into it. 
58 0100 C5 81 O1Ag 6 $ CMPW YCBSW_CT_WRTSIZ(R5) RB ; Is there room? 
40 ~='1€E att ? , BGEQU 20$ ; Branch if there is room 
01B5 629 : Not enough room in current buffer, flush current buffer and 
bige 630 3; start with a new one. 
0118 CS) «9E& 0185 O36 movab ucb$l_cnt_ovr(r5),- ; 42% performance hook 
0120 C5 01B9 63 ucb$l~cnt~addr(r5) 3; set address to count if flush occurs 
0B21 30 01BC 634 BSBW CT_ WRITE QRTCTP 3; Get rid of the thin 
011¢ CS) so 9E «=C(O1BF «=. 635 movab ucb$l_cnt_fre(r5),- ; 42% performance hoo 
0120 2 01C3 636 ucb$l cnt addr(r5) ; reset address to count if flush occurs 
08 50 €8 0106 637 BLBS RO, 
08 BA O01C9 638 BICB #FLGSM_INWRTFDT,- 
oopc C5 01CB 639 UCB$wW_CT_FLAGS(R5) ; OK if timer fires now 
0757 311 pice re BRw FDT_ABORT ; abort, net must have hung up 
01D1 pet : Allocate new buffer and initialize fields 
01D1 64 3 
01D1 644 310$: 
51. 0104 C5 3C Q1D1 645 MOVZWL UCBSW_CT_MAXMSG(R5),R1 ; Set size to allocate 
7E 30 A3 3C 0106 646 MOVZWL IRPSW7BOFF(R3),-(SP) § : Save BOFF 
075C 30 O1DA 647 SBW FOT_ACLOC_MESSAGE t get the buffer 
51 BEDO O1DD 648 POPL R1 ; Fetch old BOFF 
30 AS. «6©551=S AO s«COOTEO) Os 49 ADDW R1,1RP$W_BOFF (R3) ; Add to quota charged 
OoF8 C5 32 DO O164 650 MOVL  R2,UCB$L“CT_WRTCTP(RS) ; Set address 
OOFC cS’) 5 DO O1E9 651 MOVL R2,UCB$L_CT_WRTCUR(RS) ; Set address 
0100 cS. «(O08 A228 QiEE 63¢ SUBW3 = ACTPSW_MSGSIZE, - 
O1F 65 CTP$W_SIZE(R2), - ; 
O1F> 694 wi UCB$W~CT_WRTSIZ(R5) : Size - (nonpaged and foundation overhead) 
0102 CS = B6 bir 626 ; INCW UCBSW_CT_WRTCNT(R5S) ; Increment use count 
O1F9 658 : FILL in buffer 
1F9 3659 : , 
50 01 HS 1F9 660 MOVZWL #1,RO 3 signal buffering 
0078 0 fs $6) BSBW CT_WRITE_FILLIN ; call fill in routine 
IFF ess : Now update UCB field that describe buffer 
0100 C5 58 ag 1FF 665 SuBW2 R8,UCBSW_CT_WRTSIZ(R5) ; Room left 
OOFcC cS) = 558 SCC 309 006 ADDL R8,UCBSL_CT_WRTCUR(R5) ; Add in offset 
09 668 : See if entire buffer was copied. If done, exit, 


D 13 
- Command are Protocol Driver 16-SEP-1984 Ogre 36 AX/VMS Ma 


o V04-00 P 
CT_WRITE = Function Decision Routine for 5-SEP-1984 a 


r 
RTPAD.SRCJCTDRIVER.MAR; 1 


03 668 : if not, then queue packet and try again. 
57 5 9 gr fSTL sR?’ ; Done? 
96 1 0B or¢ BEQL 350$ : Branch if yes 
a eA OD 67 BICB Sacer WR_BEGINAI ; Clear ‘start of message" 
FF9O 1 } ore BRW 300$ ; Loop 
676 ; Finish up and Exit Q10 
8 1 678 350$: 
20 «88 1 679 BISB #CTPSM_WR_END,- 
ge Ag 8 13 o80 CTP$W_OR FLAGS (R2) ; Set “end of message’’ 
CA es 1 681 CLRL IRPS$L_SVAPTE(R3) ; Clear pointer 
0099 0 OQO21A ret BSBW SETUP_TQE ; Start timer... 
38 As. 01—s BO 6 1D 68 MOVW #SS$_RNORMAL 1RPSL 10$T1(R3) ; status 
3A A332 AS BO 1 684 MOVW  IRP$Q_BCNT(R3) ,IRPSL_I0ST1+2(R3): byte count 
3C A D4 0226 685 CLRL IRP$L~10ST2(R35 3 no cursor position or Lines output 
08 8A 0229 686 BICB #FLGSA_INWRTFDT,- 
oopc C5 0228 687 UCB$W_CT_FLAGS(R5) ; OK if timer fires now 
33 00C0 CS) EB «=—(02 3 688 BLBS UCBSL_CT_RIIRP(R5),500$ ; branch if net hung up 
03 81 02 689 CMPW = #@CTS$KCTPOLIM, - 
OODE C5 0235 690 CBSWICT_QCTPCNT(RS) § ; Queued CTP's >= Limit? 
0B «18 Osea o3) BGEQ 60$ ; Branch if no 
OS3a 638 : Many CTP's queued off UCB, don't complete this write now. 
OOF4 DS 63 OF O23A 695 INSQUE (R3),@UCBS$L_CT STALLOBL(RS) ; Insert in stalled queue 
00000000'GF 17 O25 696 sae MP G*EXESQIORETURN ; Return from the qio 
50 38 A3 v0 0245 698 "  MOVL —sIRPS$L_10ST1(R3),RO ; Set status 
06CC 1 0249 699 3708: BRW FDT_FINISHIOC ; Finish write to user NOW! 
o54¢  fO4 ) 
Oo4t oe ; Non-buffered writes. Allocate CTP that is exactly the right size. 
024C 704 4008: ~ 
51 57 2F C1 Q24C 705 ADDL3 #CTPS$C_WR_LEN,R7,R1 ; Add header to request size 
0666 30 0 3 106 BSBW FDT_ALCOC"MESSAGE : Allocate the message buffer 
59 0420 8F AB 025 708 BISW #<CTPSM_WR_STATUS!- 
0258 709 CTPSM_WR_END>,RI ; Set status and end of msg 
40 A308 ~=«90 0298 710 MOVB &#CTPSC_MT_WRITE_COM, - 
025¢ 711 IRP$B_CT_RESPTYPE(R3) =; Set response type expected 
50 D4 Ogee ars CLR RO : signal not buffering 
w 6 6M é ay BS3B CT WRITE_FILLIN ; fill in message 
360 fl? : Send the message to the remote device and exit Q10 service 
ie ji on 4 a9 MOVL R1,R2 ; Pointer beyond data in message 
0AB1 31 6 At BRW CT_NE TMSGSENDX : 
86 720 
6 re 1 : NET has hung up during write formatting, abort write and CIP 
66 7 § 500s: ° 
OOF8 C5 dO 66 724 MOVL UCBSL_CT_WRTCTP(RS),- : 
2c A3 6A 725 IRP$L-SVAPTE(R3) ; Move wrtctp to IRP, let iopost delete 
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F8 C CLRQ UCBSL_CT_WRTCTP(RS) : clear pointers 
50 Hi F at 3 ; ; 0) Nl $333 CINRABORT RO ; set st totus 
D 1 f 7 3 i 
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-SBTTL CT_WRITE_FILLIN = Fill buffer with write protocol 
CT_WRITE_FILLIN: 


NNN 35 


inputs: 


Re - ies if single shot output, lbc if buffered 
R5 = UCB 


R6 - address of user buffer 
R7 = length of user buffer 
R8 - size of data + overhead 


outputs: 


SS 
PUPVPV PVP BB BB BB BE ANIA 
OOONA UES WN 0 ODNOA UE WP OC OD NOUNE Winh-s 
De Se Oe Oe Oe Oe Oe Oe Oe Se Se Se Be Be Oe See 


COoOuwo NOwo 
o 


OoMOM VWPw 
OO ODD WOWOO00 NNN No 


COUNT WHA SVMS ON 


MOUMOW 
NNN 


SSLSSSSLSSIEILSFS 
ea be bn bs fn tna na ba a a ah — 


c@oco 0005 
AWA 
VInNoauIe 
>on 


oO 


D 
" 
Q 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
i] 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
| 


PRIPIPIPIPPIPYNIPIPIPINPNINININININPPININININININININININPYNINPININPINININYIPINIPPY 


QQVQQVq_V_VN NN 


C00009 0909090908 SIN NINN 


NOAA OOONOUS WN — 


cad 
o 


R1 = last byte filled in 

R6 - updated user buffer address 

R7 = number of bytes remaining in user buffer 

R8& = number of bytes actually written in this call 


PUSHR #*M<R2,R3,R4,R5> ; Save registers 

MOVAB CTP$W_MSGSIZE(R2),R3 ; Base of write protocol message 
Rp ; Save Address 

R7,R1 ; Assume size for MOVC 


BLBC RO,20$ ; Branch if not buffering | 
MOVZWL UCB$W_CT_WRTSIZ(R5) ,R2 ; Fetch size of buffer remaining 
CMPL R8,R2 ; Is data secger than buffer? 
BLEGU 108 Branch if it fits 


> Doesn't all fit, will have to do multiple buffers 


MOVL R2,R1 ; Set size to copy 
SUBL2 #<CTPST_WR_DATA-CTPS$W_MSGSIZE>,R1 ; minus overhead 
SUBL2 R1,R7 ; this is how much will be left 
R1,R6 ; update address 
#<CTPST_WR_DATA-CTPS$W_MSGSIZE>,- 

R1,R8 ; data + overhead transferred 


: Fill in buffer using autoincrement, assumes follow 
ASSUME CTPSB_MSGTYPE EQ CTP$wW 
R_FLAGS 


Q ” 
ASSUME CTPSW7WR_ Q ETPSBoMSGTYPESt 
ASSUME CTPSB"WR7PREFIX EQ CTPSWIWR_FLAGS+2 


ASSUME CTPSB"WRPOSTFIX EQ CTPSB~WR-PREFIX+1 
ASSUME CTPST“WRTDATA EQ CTP$B~WR~POSTFIX+1 
ADDWS = #<CTP$T_WR_DATA-CTPSB_MSGTYPE>,- 

R1,(R3)F : Set message size 
MOVB actrst MT_WRITE,(R3)+# ; Set message type 
MOVW R9,(R3T+ 3 Copy flags 
MOVw = R10, (R3) + : Copy prefix/postfix 


; Header is now set, data remains. If not buffering, it is 
; assumed here that the buffer was allocated to be (arge 
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AC If S i; enough for the one Q10. In grher words, buffering is the 
AC ; only wey that large Q10's will be broken up into smaller 
mY 7 y ; net packets. 
43 2 1 28 A 73 MOVC3 R1,a(SP)+,(R3) : Copy buffer 
5 3.6CO« B 79 MOVL R3,R ; Address of next byte 
C BA B 794 POPR #*M<R2,R3,R4,R5> ; Restore registers 
05 0285 795 RSB ; return 
0286 796 
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et up and queue TQE “SEP- 
8 -SBTTL SETUP_TQE = Set up and queue TOE 


P_ S 
B 
So 
B6 13 RS = UCB 
B6 § : RO-R2 scratch 
Be ROS | 
BG : SETUP_TQE: 
86 : DSBINT #IPL$_TIMER 
52 O0E4 g5 09 Bt 0 MOVL yCBSL-CT_TQE(RS) ,R2 
pay C 10 BEQL $ 
age 13 
00 £0 O2¢ HE BBS #TOESV BsY - 
2A 10 A2 0 c 1% TQESL_FR3(R2), 30S 
0 i HE ; Queue TQE 
38 «BB 02C 818 PUSHR #*M<R3,R4,R5> 
0102 (5 «684 O2CA 81 CLRW UCBSW_CT_WRTCNT(RS) 
14 A 33 D0 5 8 0 HOVL R5, TOESL—FR4(R2) 
50 00000000°GF 7D 0 D5 : 3 MOVG § G*EXESGQ_SYSTIME,RO 
50 0018480 8F co 0 D¢ : 4 appl #CTSK_TQE_DELTA,RO 
10 A201 «88 (02E6 «6826 BISB #TQESM_BSY, TQESL_FR3(R2) 
00000000'GF 16 O2EA 827 JSB G*EXESINSTIMO 
38 «SOBA 0 FO He vad POPR #*M<R3,R4,R5> 
0 Fe 830  — ENBINT 
O2F5 831 RSB 
02F6 832 


1 mitts 1 06:92:38 te Macro V04-00 


RTPAD.SRCIJCTDRIVER.MAR; 1 


; Set IPL 
; Fetch Timer Queue Entry 


Branch one does not exist 
(because of error allocating 
or hangup in progress) 


Branch if busy (already queued) 


Save 

Clear use count 
Set UCB address 
Set TQE as input 
Fetch current time 


Add delta 

Add with carry into second part 
Set as busy 

Insert in queue 

Restore 


Reset IPL 
Exit 


CT 
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TQE_WAKEUP = timer wakeup routine g §8:92:36 cict Me 


es a | 


SOM M DS OPAPP AAAAAOAAOAAO 


OOOOOMOOOCCOCOOOCOOOOoOoO 


mn oOo 
oo 2: o 
PPPs Be BB BS BS EAN 


NAME WN SO OO NAUES WIN $$ O OD NAME WN 0 ODNAU EWN O OONOAOU EWR OOONOUS 


Se ee en en pelo lo lololololololololo) 


0090900090009 0909 SI NIN ISIN SNS OA AAA OOo 


ooo 
WINS 


RO-R4 are scratch, R5 must point to a valid TQE 


SEP-1984 RTPAD.SRCICTDRIVER.MAR; 1 
-SBTTL TQE_WAKEUP = timer wakeup routine 
TQE_WAKEUP: 
: R3 - flags 
; R4 = UCB 
; RS = TQE 
; IPL = IPLSTIMER (IPL$_SYNCH) 
: On return: 


MOVB #TQESC_SSSNGL,=- 


TOQESB RQTYPE(RS) ; Set request type as system subroutine 


BICB #TQESA_BSY,TOESL_FR3(R5) : clear busy flag 


BBS #TQESV_DELETE,R3,30$ ; if terminal has hungup, delete TQE 


BBS #FLGSV~INWRTFDT,- 
UCB$W_CT_FLAGS(R4),20$ ; if FDT in progress, exit 


: If a write has occured since being queued, simply reschedule TQE 


TSTW © UCBSW_CT_WRTCNT(R4) ; Test count 
BEQL 10$ 3 zero implies no new qio's 
CLRW UCB$W_CT pate ; Clear use count 


MOVB #TQEst ss 
TQ 


TYPE (RS) ; 
3158 #TQESRM_BSY,TQESL_FR3(R5) ; Set busy flag 


: TQE will now ‘‘fire’’ the write to the net 


10$: 
PUSHL R5 ; Save TQE address 
MOVL R4,R5 ; Set UCB address 
movab ucbs} -ent.tgetrs) - ; 42% performance hook 
ucb$l_cnt_a dr(r55 ; set address to count if flush occurs 
BSBW CT_WRITE_WRICTP ; Flush write buffer if one exists 
movab ucb$l_cnt_frce(r5),- ; 42% performance hook 
ugb$l_ent_addr (75) 3 reset address to count if flush occurs 
20$ POPL R ; Must restore TQE address before 
: RSB 3 returning 
: Terminal has hungup while TQE was queued, delete TQE now 
30$: ; 
MOVL R5,R0 ; TQE address 
JSB G*EXESDEANONPAGED ; Deallocate the 1/0 packet (DRVDEALMEM?) 
rt ine G*EXESAL_TQENOREPT,RS~ =; ae TQE (needed for return to system) 
; Return 


J 
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Ve 005 CT_READ = Function Decision Routine for “-SEP-1984 $8: :20 CRIPAD.SRCICTORIVER.MAR; 1 . (3) ve 
rt 9 -SBTTL CT_READ = Function Decision Routine for READ Functions 
4 92 544 
r 38 ; CT_READ = Function Decision Routine for READ Functions 
: 2 Functional description: 
4 33 This routine is called by the SYS$QI0 service to dispatch a READ 
Z 38 1/0 request. 
t it The Q10 parameters for terminal READS are: 
4 9 ¢ Pil = address of the buffer 
034 90 P2 = size of the buffer 
034 904 PS = number of seconds to wait for characters 
034 905 P4 = address of terminator class bitmask or 0 if standard 
034 90 P5 = address of prompt string for IO$_READPROMPT or IO$_TTYREADPALL 
8 r Bp P6 = size of prompt string for IOS_READPROMPT or I0$_TTYREADPALL 
034 90 The buffer is validated for access, the proscar s quota checked and 
034 decremented, the timeout, terminator mask, and prompt are copied to a 
Ose message block, the address of the message block is stored in the IRP, 
b3e and the IRP is queued to the ACP for delivery to the remote system. 


Inputs: 


7s = scratch register 
af = address of the IRP 
R5 


s 
(1/0 request packet) 
(process control block) 


address of the PCB 
address of the UCB (unit control block) 


PRP LLEP PREPRESS 
PAXAAA AAA A AAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAO 


9 
910 
312 
313 
03 914 
8 915 
0 aig 
03 91 
O3c6 919 ; 
03 920 R6 = address of the CCB (channel control block) 
03 921 R7 = bit number of the I/0 function code 
03 9 ¢ R8 = address of the FDT table entry for this routine 
03 9 R9-R11 = scratch registers 
83 4 : AP = address of the ist function dependent Q10 parameter 
8 3 $ Outputs: 
03 928 IRP$SL_SVAPTE(R3) = address of message buffer 
034 929 IRP$W_BOFF(R3) = size of message buffer 
034 930 IRPSL_MEDIA(R3) = address of user buffer 
bae 33) IRPS$W_BCNT(R3) = size of user buffer 
O34 $38 The routine preserves all registers except RO-R2, and 
4 934 R6-R11. 
0346 935 
O3c6 987 
0 re 2 8 3; Local storage offsets on stack: 
46 940 .SAVE LOCAL_BLOCK 3; save psect 
138 Be) -PSECT SABS$,ABS 3 set null psect 
00000000 3 348 ,#@ : Initial offset 
sais $00 945 bufaddr: eBLKL :; Input buffer 
0000008 4 946 bufsize: -BLKL 3 


crDRayER =¢gagand 
8 

15 890¢ 

18 14 

if 18 

§ abit 
000028 4 
ap0008¢ 90¢8 
SH Ht 
GB00038 9034 
000003C A 
000003E : 
0000003E Bose 
00000346 

0346 

0346 

0346 

0346 

0346 

0346 

0346 

0346 

0346 

bee 

0346 

0346 

0346 

0346 

0346 

0346 

0346 

0346 

0346 

42 ry: . 0 18 
00DC Oe b8eg 
O98F 30 Beek 
0351 

1 

£8 ih 
SH 
Ea, ee 
61 

F 3c 61 
66 

6 

ee 

6 
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94 


WOOOOOOOOO0OO0O0O0O 
HAAS MMMNMNUIUIUIVTUTIU 


ooono 


WOOOOOOOOOOOOOOODO 


a 


prmaddr: -BLKL 3 
prmsize: ‘ ; 
trmaddr: 8 ; 
ires ze: ° 3 
niaddr: 8B 5 
inisize: : 
altechaddr »BLKL 3 
altechsize: ~BLKL ; 
picstraddr: BL : 
picstrsize: -BLKL : 
timeout: -BLKL $ 
inioffset: BLKL : 
editflags: BLKW : 
fillchar: LKW 3 
editmode: BLKW 3 
read_local =. : 
RESTORE ; 


Register Usage: 
oa - bepperery scratch 


: ¢ - CTP 

sR - IRP 

3 RS - PCB 

3; RS - UCB 

3: R6 - 

3 R7 - function code 

; R8 - local storage pointer 

3 RY - flags 

3s R10 = 

3 R11 = 

CT_READ: 
CLRW IRP$W_CT_POST(R3) 
BICW #FLGS$ 


CTRLO,- 
UCBSW_CT_FLAGS(RS) 
BSBW = CT_WRITE“WRTCTP 


3; Allocate and zero local 

SUBL2 #READ_LOCAL,SP 

MOVL SP, 

PUSHR #*M<R3,R4,R5> 

movcS 4#0,(SP5,#6,- 
#READ_LOCAL, (R8) 

POPR #*M<R3,R4,R5> 


MOVZWL 9 #CTPSM_SR_FORMAT!- 


4 02:22:54 VAX/VMS Macro V04-00 Page C) 
5 86:92:36 RTPAD.SRCICTORIVER.MAR; 1 ’ (3) v¢ 
Prompt buffer 
Terminator Set buffer 
Initial String buffer 
Alternate echo string buffer (READ VERIFY) 

Picture string buffer (READ VERIFY) 

timeout in seconds 
initial string offse 
Edit flags (READ VER 
fill A 
Edi I 
overall size 

restore psect 


3; READ FDT routine 
; Clear POSTed flag 


3 Set no control 0 
: See if flush must happen 


storage 
3; Save pointer 
; save registers 


; zero local storage 
3; restore registers 


; Assume formatting and 


CTPSM~SR-NORMTERM!- : normal terminators and 
CTPSM_SR_TRMECHO,RO ; normal terminator echo 


; Check access to user's buffer 


; Allocate local storage 


= Command 
CT_READ = 


8 


ho 


68 0 
00000000 ' GF 
ore SS 
06 18 
0106 C5) = BO 
04 AB 


sO 0.00 09 09 C9 09 C9 C0 CD C9 CD CDCD PPP > 9 


QNNNNIN 99 999 ONIN ONES SLL TNS POWMIMUNIVUINING SD DP PP POLL SM NOOOOW Oo 


OOCOCCoooooooooo 
AI.AIAI NIWA NIAI AIA NINN AANI AIAN NAA AANA 


wonoow0ono 


oe 

06 20 A3 
O13F 30 
0075s 311 


. & F 
BS. 
57 A 91 
05 ie 
59 0300 8F A 


57. 371 

OA 13 

57. 5B OO 

19 12 

9 0500 8F As 
51 WAC 3C 
OE 13 

50 10 AC 00 


=—N 
ao 


52.4 
51 OC AC 00 


YASASSSSSSSSSSSSSSSSSS Ss sosss 


TA AR Poe scien fin cb < ioc Se Roc a UE." 
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w 
oe 


10$: 


AMO ODNAU EWI (OOO NAUE WN OOWONOUE 
Sete 
2. 
2s 


15$: 


wr 


oo 
Pw 


: Check 


cc ee ee ce ee ce ce ee ed ee ee ee ee ee ee ee ce ee ee ee ee ee ce ce ce ce ce ce ee ee ee ee el el el ee ee ee ee ee ce a ee ee ee ee ee eed eed 
vr 
So 
wr 
ee 


5 
; 
8 
i 40$: 
9 
; 
5 
; 
9 
0 


2 
4 


754 VAX/VMS Macro V04-00 
720 CRIPAD.SRCICTDRIVER.MAR; 1 


Pane 43) 


MOVL P1(AP),RO ; Get user buffer virtual address 
HOVE RO, IRP$L_MEDIA(R3) : Save address in packet 
MOVZWL P2CAP),RT : Get buffer size 
BEQL 5 ; Skip check if zero 
MOVa RO ,BUF ADDR (R8) ; Save address and length 
JSB G*EXESREADCHK : Check buffer access 
; (no return means no access) 
CMPW BUFSIZE(R8),- 
UCBSW_CT_MAXREAD(R5) ; Size of read server can do 
BLEQU 10% : branch if ok 
MOVZWL #SS$_IVBUFLEN,RO 3; ** status 
BRW FDOT ABORT pexit | 
MOVW UCBSW_CT_MAXREAD(RS),- ; Force size of read server can do 
BUF SIZE(R8 
3 Check for extended item List format 
BBC #10$V_EXTEND,- 7 
IRPSW FUNC (R$) ,15$ 3; branch if not item List format 
BSBW CT_READ_ITMLST 3; Format data 
BRW 200$ : continue 
3 Check 1/0 function code for mode of read 
CMPB #10$_READPBLK,R7 ; Function code I0$_READPBLK? 
BEQL ; Branch if yes 
CMPB #10$_TTYREADALL ,R7 ; Function code I0$_TTYREADALL? 
BNEQ ; Branch if no 
BISW #CTPSM_SR_ALLBUTX,R9 ; Set read all but XON/XOFF in flags 


; Now check for prompting 


cnpe #10$_READPROMPT ,R7 
CMPB 4 =—s- #10$_TTYREADPALL.R7 
BNEQ 50 
BISW #CTPSM_SR_ALLBUTX,R9 
MOVZWL P6(AP)7R1 

EQL 50 
MOVL PS5C(AP),RO 


access to prompt string 


MOVQ RO, PRMADDR(R8) 
JSB G*EXESWRITECHK 


CLRL 


R2 
MOVL P4(AP),R1 


; Get terminator bitmask and check access 


Read prompt? 
Branch if yes 

Read posse L with prompt? 
Branch if 


not 
Set read all but XON/XOFF in flags 


Get size of prompt 


If eql then make this normal read 


Get prompt buffer address 


Save address and size of prompt 
Check prompt access 
(no return means no access) 


Assume no terminator specified 
Get address of terminator desc 


; 


4 
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vou O08 CT_READ = Function Decision Routine for o7SEP 71982 88: 9%: 36 RTPAD.SRCICTDRIVER.MAR; 1 ° H) 
8 3 CD 1061 EQ : If eal ane : ecified 
50 62 i CF 1 § MOV IWL #SS$_ACCVIO,RO 3 Aeoule fe no oe 
be 1 IFNORD #8,(R1),6 3 Descriptor. “accessible? 
52 61 3 DB 1064 MOVZWL (R1),R2 : Get bitmask 
8 1 DB 1 92 BNEQ 60$ : If neq long format 
2¢ 4 OD DD 1 § MOVL #4,R : Size of short format 
1 4 C EO 106 ADDL #&,R 3; Set address of bitmask 
15 1 : 68 pee BRB 65§ : 
51 04 Al 00 i if OVL 4(R1),R1 3; Get address of long format bitmask 
E9 1071 IFNORD R2,(R1),62$ : Bitmask accessible 
20 52. 861 8 EF 1 ie CMPW #32 : Bitmask erester than jdt lence size? 
06 1B O3F2 107 Leau 465 : If less than or equal, no 
50 14 HS 8 F4 sre MOVZWL #SS$_BADPARAM,RO ; Set status 
052E 1 8 44 He 6gs: RW FOT_ABORT ; branch to read error 
10 a8 51 7D beep 1977 MOVva R1, TRMADDR(RB) 3; save address and size of terminators 
OSE 1903 3 Set up read flags 
50 20 A3 HS O3F 4+ MOVZWL bee FUNC(R3),RO 3; Fetch function ccde and modifiers 
O1A8 0 0402 10 § BSBW FDT_READFLAGS 3 map bits to TSA 
30 AB «O08 AC OCOD tH Ie? MOVL P3(AP), TIMEOUT (RB) : Copy timeout parameter 
040A 1085 ; Allocate the message buffer 
040A 1086 ; 
040A 1087 2008: 
04 AS BO 040A 1088 MOVW BUF SIZE(R8),- 
32 AS Bebe IOSD IRPSW_ BCNT(R3) 3 reset BCNT written by EXESWRITECHK 
O40F 1091 : Calculate size and allocate CTP 
040F 1936 : 
5 OC AB DO O40F 109 MOVL PRMSIZE(R8) ,R7 : Set prompt size 
a... a. ee Bots 1094 ADDL3 is) P$C_SR_LEN,R7,R1 ; Add header size to prompt size 
1¢ AB CO 0417 1095 ADDL NISIZE(RB) RI ; Add in initial string size 
51 14A8 CO 0418 1096 ADDL TRASIZECRE) ” R1 : Add in terminator size 
3c As 8 041F 1097 TSTW EDITMODE (RAS ; non-zero f read verity 
19 13 0422 1098 BEQL 202$ nch if not read ver 
51 08 CO 0424 1099 ADDL #CTPSC_SR2_LEN-CTPSC_SR -{EN, rR Add additional eden size 
51 24 A8 CO 0427 1100 ADDL ALTECHSIZETR8) ,R1 n * alternate echo string size 
51 2C AB CO 0428 1101 ADOL PICSTRSIZE(R8) ,R1 Add in Picture string size 
11 €0 O42F 11 é BBS #CTPSC_MT_VMS_READVFY,- - 
08 0108 C5 431 11 UCBSL_C1_CEGACMSG(RS),202$ ; branch if ross verify allowed 
50 OOF4 8F 3 435 1104 MOVZWL #SS$_TLLYOFUNC,RO ; exit with erro 
04EB 1 r 5 y 5 2028 BRW FDT_ABORT 3 nope, illegal 1/0 
04F9 30 0435D 11 5 BSBW FDT_ALLOC_MESSAGE :; Allocate the message buffer 
0 90 rr 11 3 MOVB #CTPSC_MT-START_RD,- 
2A A 442 11 CTPS$B_ASGTYPE(R2) 3; Set message type 
40 a3 0 90 0444 1110 MOVB #CTPSC_MT_READ DATA 
rf 413) IRP$B_CT “RESPTYPE (RS) ; Set response type expected 
rs 1118 | : Copy the timeout, terminator bitmask, and prompt string to the message 
28 A2. 59 «DO 0448 1115 : MOVL R9,CTPSL ace FLAGS(R2) ; Set flags NB: FLAGS is really only 3 bytes 
32 a3 BO 044C 1116 MOVW =: IRP$W_B 
2—E A 44F 411 CTPSW_ Bf a ft “LEN(R2) 3; Set requested byte count 
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VOe- 000 CT_READ = Function Decision Routine for g7$EP P-1 1386 $8: :20 CRIPAD.SRCICTDRIVER.MAR; 1 nee (9) 
39 A BO 0451 1118 MOVW TIM QUT<RG) 5° 
A r 4 i 4 CTPSW_SR_TIMEOUT(R2) ; Copy timeout value 
30 A2 57 1C AB Al 04 g 1121 ADDW3 = INISIZE(R8),R7 
43 11 ; CTP$W_SR_END_DATACR2) get end of data 
45C 11 ASSUME CTPS$W-SR-END- PRAT? a cfpsu_sr sta DISP 
38 A2 , = $f 1124 MOVZWL R7,CTPSW"SR END PRMT(R2); Copy infefat 4 zero start display 
0 34 : 09 0460 1 5 MOVL INEOFFSETCRB) JR »RO ; Set alo et 
36 A287 0 al Be88 1 ; 2108 ADDW3 RO,R7,CTPSW_SR_STR _pispch2) g eset Start display 
38 A2 57 BO 0468 1129 "  MOVW «RT, CTPSW_SR_LO_WATER(R2); Set Low water mark *#* 
BS Beet i 9 PUSHR #*M<R2,R3,RZ,R5> ; Save registers 
bee) 1 ¢ : Prompt is different based on start read type (Normal or read verify) 
533A 9E 0471 1134 MOVAB C ->$T_SR_TERM(R2) ,R3 ; Assume normal read 
3¢ AB) «=6BS SO0475)—(«1135 TSTW | (MODE TRE) : normal read is zero 
13 984 1138 BEQL 230$ : branch if normal read 
047A 1138 : Set up read verify additional data 
047A 1139 : 
11 90 O47A Bs MOVB #CTPSC_MT_VMS_READVFY,- 
2A A2 047C 114 . EtR2) ; Set_ message type 
O47E 114¢ ASSUME CTP$WISR2_ALTECHSIZE €0 CTPST_SR_TERM 
Bere Vee : SR2_ALTECHSIZE is the same as SR_TERM, R3 has correct address 
047E 1146 ASSUME CTPS$W_ She -ALTECHSIZE+2 fe CTP$W_SR2_PICSTRSIZE 
O47E 1147 ASSUME CTPS$W°SR2- -PICSTRSIZE+2 EQ CTPS$W_SR =EDITELAGS 
QO47E 1148 ASSUME cre Su. Sho EDITFLAGS+ : TPSW_ She. a een 
O47E 1149 ASSUME CTP$W-SR2-FILLCHA EQ CTP$T_S “TERM 
83 24 A8 BO O47E 1150 MOVW ALTEC ASTTECRE) CRS + 3 copy sitefaste echo size 
83 2C AB BO 0482 1151 MOVW PICSTRSIZE(R8) ,(R3)+ 3 copy eisture string size 
83 38 A8 B80 0486 1126 MOVW EDITFLAGS(R8), (R3)+ : copy f ags 
83 3A A8 B60 at 4 1132 MOVW FILLCHAR(R8) ,(R3)+ 3: copy fit characters 
Bege W132 : fall into starndard read code path... 
50 10 A8 048E 1157 230$: MOVQ TRMADDR(R8),RO ; Set addr,size 
83 51 90 0492 1158 MOVB R1,(R3)+ 3 Copy byte count of term mask 
OA 13 0495 1159 BEQL 3006S : Branch if not specified 
01 0497 1160 INSV sits 4: SR_THISTERM,=- 
65 499 1161 #CTP$V_SR_TERM_SET,- 
0 49A 1186 #CTP$S_SR_TERM sfT.- 
2B A2 049B 116 CTPSL SR FL Asst ) 3; Set ‘Use this terminator mask'’ 
63 60 51 28 3690 1168 3008 MOVC3 1,(R0),TR : Copy terminator bitmask 
50 08 A8 7D O4Al 1166 "  MOVQ_ -—- PRMADDR(RB) ,RO ; Set addr,size 
63 60 51 <8 4A5 116 MOVC3 R1, (RO), (R35 : Copy prompt string 
50 18 A8 7D O4A9 1168 MOVG INE ADDR (RB) RO : Set addr,size 
63 60 51 28 AD 1189 MOVC3 R71, (RO), (R35 > Copy initial string 
3C A 8 4B1 1171 TSTW DI TMODE (R8) 3; normal read is zero 
1 1 4B4 1178 BEQL 3; branch if porash read 
5 28 A 7D 0486 117 MOvVaQ 4 COTRADR (RS) . RO ; Set addr,s 
63 a 4BA 1174 MOVC3 , (RO), (R3) 3; Copy iottiot string 


<—- 
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50 20 A8 7D 
5128 


CT_READ = Function Decision Routine for “SEP-1984 RTPAD.SRCICTDRIVER.MAR; 1 
1175 MOVQ ALTECHADDR(R8) ,RO ; Set addr,size 
63 60 1128 3008 MOVCS =R1, (RO), (R3) : Copy initial. string 
51 33 D0 1178 "  MOVL ~—-RB, RI ; Save addr beyond data 
C BA 4 POPR #*M<R2,R3,R4,R5> : Restore registers 
Ht ; Send the message the remote device and exit the Q10 service 
52. 51 9 11 : ; MOVL R1,R2 ; Set address beyond data 
0846 1 1184 BRW CT_NE TMSGSENDX : 


00000000" 
Fi 


50 


53 
50 


ww 
on— 


DOSCSCSCCCOCOODOODODODODODOOMM@WO 43 


NAUE WN SO OONOAUE WR) OOOO 
+ 


oOvurcrr WIHOOW 


om FAL OOVUMO OTOW 
WOWen—9oSo 9O-—mMo 
-“O0-FTWOO OOT"O 


Oo 

> 
ViMIigd now 
wo 


30$: JSB G*EXESPROBER 
RO,208 


om— 
oun 


° 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
Q 
0 
0 
0 
5 
0 
0 
0 
0 
0 
0 
0 
Q 
0 
0 
: 
: 


PAAAA AP AAA AAA AOR ALAAUIUIVIIII ES BS BBR RR RRR RRR RRR RRR RRS 


NR OOODNAUE WN (OOO NAULS WN" OOONAUIS WOW 


HPP NAINA NIWA POPINPINPINPINPINININ 2 OO Ot SOO 
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L 
FDT routine for read wi 5-SEP-19 


T_READ_ITMLST: 


MOVL R3,R : 
EXTZv #0 Rs P3(AP) RO : 
JSB G*E XE SMAXACMODE ; 
MOVL RO,R 3 


MOVL P5(AP),RO 
MOVL P6(AP) ,R1 


1 
mova R0 R10 
0$:  MOVZWL #SS$_BADPARAM,RO 
0$: MOVL 
BRW FOT_ABORT 


Sete Se Se Ge Se Ge Be 


MOVL  R141,RO : 
; Verify that size is multiple of 
MOVL  R6,R3 


CLRL 3 
EDIV #12,R0,R11,R0 3 
TSTL RO 3 
BNEQ 10$ : 
; Now loop and conquer item List, 
40$: 
MOVZWL (R10)+,R1 3 
MOVZWL (R10)+,R2 3 
MOVL (R10)+,R0 : 
TSTL (R10)+ 3 
BNEQ 10$ : 
CASE R2,- 3 
<1608,- : 
a 3 
00$,- 3 
400$,- 3 
500$,- : 
600$,- : 


2:54 VAX/VMS Macro V04-00 
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~SBTTL CT_READ_ITMLST = FDT routine for read with item list 


RTPAD.SRCICTDRIVER.MAR; 1 


; *** a clean up pass is needed to here to verify that the paranoia 
checks made by TTDRIVER and this driver are the same. 


; Set up probe of itemlist with P3 as access mode 


Save IRP . 

fetch low 2 bits of parameter 
maximize with mode of caller 
Set input to probe routine 


Address of itemlist 
size of item list 
can't be zero? 

save both 

ok, continue 

status 

Restore IRP 

abort 

Can it be read? 


branch if not 
size 


12 


Restore IRP 
uadword r0/r1 

vide : 
must be zero remainder 
error 


item by item 
Length 
item code 
address or immediate value 
Must be zero fie 
error if not 
case on message type 

| IF IERS ” 
TRM$_EDITMODE 

EOUT 

TRM$_PROMPT 
TRMS_INISTRING 
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ae tt CT -READ_ITMLST = FDT routine for read wi at Pi 06:92:36 RTPAD.SRC CTDRIVER. MAR; 1 ° (92) 
2 1243 700$,- ; TRM$_PICSTRING 
1244 88 $,- ; TRMS_ Payhene 
5 1245 $,- ; TRMS_INIOFFSET 
500 46 1000$- : TRMSTALTECHSTR 
: } tg TYPE 3 TRMS_ LASTITM 
= 
SSA 12469 ; 08 ASSUME TRMS _CASTITN EQ 10 ; Break assembly if not right 
B61 : " ! 29 BRB 10$ ~ 
53c (1 26 ; TRMS_MODIFIERS 
53¢ 6125 3 
53C 1254 100$: 
006 30 O53C 1255 BSBW FOT_READFLAGS ; Handle read flags 
6 11 OS3F 1256 BRB 2000$ 3 Loop 
0541 1257 ; 
0541 1258 ; TRMS_EDITMODE 
0541 1259 3 
0541 1260 200$: 
3c ASB) =6550)—S ss BO. C«0541—s« 1261 MOVW RO, EDITMODE (R8) ; Save for use later 
SF 110545 1 ee BRB 2060$ : Loop 
0547 126 3 
0547 1264 > TRM$_TIMEOUT 
0547 1265 ; 
0547 1266 300$: 
30 AB = 650) «6—p0 «(0547 «(1267 MOVL RO, TIMEOUT (R8) ; Set timeout 
59 2000 8F AB 0548 1268 BISW #CTPSM_SR_TIMED,R9 > set read timed bit 
54 11 0550 1269 era 2000$ : loop 
055 1679 ; 
0552 1271 ; TRM$_TERM 
055 1576 : 
0552 1273 400$: 
51 D5 0552 1274 TSTL R1 ; test length 
09 12 0554 1275 BNEQ 410$ : If neq long format 
51 04 00 0556 1276 MOVL #4,R1 : Size of short format 
50 FBAA Y9E 0559 1277 MOVAB -8(R10),RO 3; Address of immediate data 
13 11 O55D 1278 BRB 430$ 3 skip 
OSSF 1279 410$: 
OSSF 1 $9 IF NORD oi} + Sag? Sees ; Bitmask accessible? : 
20 51 #42B1 0565 1281 CMPW R1,43 3; Bitmask greater than aliowed size? 
08 1B 0568 Ise BLEQU 436$ : If less than or equal, no 
86 11 O56A 128 BRB 10$ ; bad param *** other status? 
50 OC $ 056C 1 rf 420$: MOVZWL #SS$_ACCVIO,RO 3 access violation 
0386 1 Boge 5 ayes Baw FDT_ABORT ; branch to read error 
10 A8 850 7D 0855 1 e? mova RO, TRMADDR(R8) ; save address and size of terminators 
2E 11 0576 1288 BRB 2060$ > continue 
0578 1289 : 
578 1290 : TRMS_PROMPT 
578 1291 3 
578 1 35 500$: 
08 AB «6500 «07D SCi578 «129 MOVa RO, PRMADDR(R8) ; save address and length 
1E 11 057C 129% BRB 1560$ > continue 
5S7E 1295 3 
57E 1 36 ; TRMS_INISTRING 
57E 129 3 
57E 1298 600$: 
18 AB 8650 67D (O57E 1299 MOVQ RO, INIADDR(R8) ; save address and Length 


i — 
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v04 CT_READ_ITMLST = FDT routine for read wi 5- 4:20 (CRIPAD.SRCICTORIVER.MAR; 1 
18 #11 2 ¢ ] 9 BRB 1500$ 3; continue 
4 ; ; TRMS_PICSTRING 
4 1304 7008: ° 
28 AB 39 7D 0584 1305 mMOVa 0 PICSTRADDR(R8) ; save address and length 
wt 3 8 3 BRB 1560 + continue 
58a 1 8 ; TRMS_FILLCHR 
5B8A 1 3 
58A 1310 800$: 
3A AB 50 BO SBA 131 MOVW 88 + eames! ; save for Later 
16011 3 F BRB 2060 : continue 
390 1314 ; TRMS_INIOFFSET 
0590 1315 : 
34 AB 50 00 0590 1 1 900$: MOVL RO, INIOFFSET(R8) ; Set inioffset 
10 11 0594 7 BRB 2060$ > continue 
0596 1319 : TRMS_ALTECHSTR 
0596 1320 3 
0596 1321 1000S: 
20 AB «6500S 7D sSCO0596 1 § MOva RO, ALTECHADDR(R8) ; save address and length 
00 (11 059A 13 : BRB 1560$ > continue | 
099¢ 13 3 : Check string for access 
51 po5 059C 1327 1500$: TSTL R1 ; no need to probe if zero 
C6 «13 059E i; 3 BEQL 2000$ ; Skip probe 
00000000 ° GF 16 Beng : 4 JSB G*EXESWRITECHK ; check for read access 
05A6 1333 : Loop for next parameter 
OSA6 1 3 ; 
O5A6 1 ; 2000S: 
01 5B FS OS5SA6 1334 SOBGTR R11,2010$ 3; loop 
05 OSA9 1335 RSB 3; return 
FF68 31 OSAA 1336 20108: BRW 408 ; 
| 
} 
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FDT_READFLAGS: 


mm 
5 <a o- o- a Ww 
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we 
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TOOT O OUI DOW "SOOO POO—-TCT@ 


is left out of the following optimization because of the frequency 


use. 
BITW #<10$M_NOECHO! = 
IOSM_TIMED!=- 
10$M_PURGE !- 
10$M_TRMNOECHO! - 
10SM_CVTLOW!- E 
a maths ct 3; Optimization - any bits set? 
BEQL 140$ : Branch if not 


BBC #10$V_NOECHO,RO,90$ ; Branch if not noecho 
BISW  #CTPSA_SR_NOECHO,R9 Set noecho 


BBC #10$V_TIMED,RO,100$ 


Branch if not timed 


BISW  #CTPSA_SR_TIMED,R9 : Set time 
BBC #10$V_PURGE ,RO,110$ ; Branch if not purge typeahead 
B1SW  #CTPSA_SR_PURGE,R9 : Set purge 


BBC #10$V_TRMNOECHO,RO,120$ ; Branch if not terminator noecho 
BICW #CTPSA_SR_TRMECHO,R9 : Clear terminator echo 


BBC #10$V_CVTLOW,RO,130$ ; Branch if not CVTLOW 
BISW #CTPS$A_SR_LOWTOUP,R9 ; Set lower to upper case conversion 


BBC #1O$V_NOFILTR,RO,140$  ; Branch if not filter control characters 
BISW #CTPSA_SR_EDIT,RO ; Set read edit characters 


BBC #10$V_ESCAPE ,RO,150$ ; Branch if not escape reaad 
BISL #CTPSA_SP SCAPE,R9 : Set read with escape 


: VAS extension - if VAX to VAX, send extra bits in spare bits. 


BBC #FLGSV_VAXTOVAX,~ ; 
UCB$W_CT_FLAGS(R5),300$ ; If not VAX to VAX, skip next check 

ASSUME TRMSV~TM"NOEDIT+1 ga TRM$V_TM_NORECALL 

EXTZV #TRMSV_TA_NOEDIT,#2,RO,R1 : two bits 

R1,#CTPSV~SR_NOEDIT.#2.R9 ; Stick in here 


ASSUME TRMSV_TM_R_ JUST+1 EQ TRMSV_TM_AUTO_ TAB 
#TRMST_TA_R JUST,#2,RO,R1 = two bits 
R1,EDITFLAGS (RS) 3 save 

; return 


3 
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| 
IRP$SL_SVAPTE(R3) = address of message buffer | 
IRP$W_BOFF(R3) = size of message buffer | 
| 
| 
| 


The routine preserves all registers except RO-R2, R7, and R9I-R11 
T_SETMODE : ; SETMODE/SETCHAR FDT routine 


CTDRIVER = Command Terminal Protocol Driver -SEP-1984 7:22:54 VAX/VMS Macro V04-00 P 1 | 
v04 CT_SETMODE, feaetten tees Routine fo ae ets 9 8g: 4:20 (CRTPAD.SRCICTDRIVER.MAR;1 — day | 
° . } 7 — -SBTTL CT_SETMODE, Function Decision Routine for SETMODE/SETCHAR | 
: ! ; ; CT_SETMODE, Function Decision Routine for SETMODE/SETCHAR Functions | 
stp i : Functional description: | 
60D 1393; This routine is called by the SYS$QIO service to dispatch T 
tie ! 9¢ : or SETCHAR I/O request. { : sessile cng 
beoD ! 38 : The Q10 parameters for terminal SETMODE or SETCHAR are: | 
9600 1 98 : | 
60D 1399; P1 
0800 1400 “ : ~~ of 8 byte characteristics buffer 
060D 1401 ; P3 = speed specifier 
60D O86 ; P4 = fill specifier 
ree 1eb7 ; P5 = parity flags 
060D 1405 : 1OSV_CTRLYAST = 
a4 1206 : P1 = AST routine address or zero to cancel 
060D 1408 : 1O$SV_CTRLCAST - 
Bene 129) ; Pi = AST routine address or zero to cancel 
060D 1411: 10$V_HANGUP = 
ane = 
060D 1414: The buffer (if any) is validated for access, the process's quota 
060D 1415 ; checked and decremented, a message block is allocated, the parameters 
060D 1416; (if any) are stored in the moacage block, the address of the message 
0600 1417 ; block is stored in the IRP, and the IRP is queued to the ACP for 
54 1213 3 delivery to the remote system. 
060D 1420 : If an AST is to be enabled, an AST control block is allocated locally 
060D 1421 ; hung off the UCB for later delivery upon receipt of a corresponding 
060D 14 § : attention message from the remote system. 
060D 1423; 
Oeop 1455; inputs: 
0600 1426: 4 tsp = scratch registers 
0600 1427 ; R3 = address of the IRP (1/0 request packet) 
060D 1428 ; R4 = address of the PCB (process control block) 
060D 1429 ; RS = address of the UCB (unit control block) 
8 D 1430 ; R6 = address of the CCB (channel control block) 
60D 1431; R? = bit number of the I/0 function code 
60D 14 § : R8 = address of the FDT table entry for this routine 
60D 1435 ; R9-R11 = scratch registers 
: 1 : s AP = address of the Ist function dependent Q10 parameter 
60D 14 $ : Outputs: 
1238 : 
14 § : 
1440 ; 
re 
1208 t 
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v04 CT_SETMODE, Function eelstes Routine fo ets 86:92:33 RTPAD.SRCICTDRIVER.MAR; 1 a i) | 
690 1444 
43 A3 B4 060D 1445 CLRW = IRPSW_CT_POST(R3) : Clear POSTed flag | 
6CD 0 13 1278 BSBW CT_WRITE_WRTICTP ; See if flush must happen | 
09 06 EA 061 1448 FFS #10$V_MAINT,#9,- 
51 20 A 618 166 IRPSW"FUNC(R3) (RI ; Find first set modifier | 
619 1450 CASE 1, TYPE=B,LIMIf=#10$V_MAINT,<- 
0619 1451 SEf_MAINT.- ; 10$M_MAINT 
0619 14 ‘ SET-CTRLY,= 3 IOSM~CTRLYAST 
619 145 SET-CTRLC,= : IOSMICTRLCAST 
619 1454 SET-HANGUP, = + 1OSM~HANGUP 
619 1435 SET-OUTBAND,- ; IO$SM~OUTBAND 
619 14 $ SET"CONNECT,- ; IOSM~CONNECT 
0619 145 SET-DISCONNECT,- : IOSM~DISCONNECT 
0619 1458 SET-PID,- : IO$M~SETPID 
0619 1459 SET-BRDCST> : IOSMBRDCST 
06 F 1461 ; Set terminal characteristics if CASE falls though 
20 As SC FFCO BF oaB3.s«O6 OF 1268 : BITW  #*CIRPSM_FCODE, - : Extra bits? 
0635 1464 IRPSW_FUNC(R3) 3 as modifier 
08 13 0635 1465 BEQL ; Nope 
50 OOF4 8F HS 0637 re ¢ MOVZWL #SS$_ILLIOFUNC, RO ; Return as illegal operation 
02E9 1 pose 1 ons BRWwW FDT_ABORT ; with an error not success 
02A8 30 O63 1469 ' «BSBW = GET_PARAMS : Fetch P1 and P2 into R1,R2 
a 1474 ; Send CTERM or VMS message 
OF £1 064 1478 BBC #CTPSC_MT_VMSQI0,- 
06 0108 C5 0644 1474 UCBSL_CT_CEGALMSG‘(RS),12$ ; Branch if not VMSQIO support 
F9BS* 30 0648 1475 BSBW CT_VMS_SETMODE ; Format VMS message 
06C9 1 pose 1376 138 BRW CT_NETASGSENDX ; Send message and exit 
48 AS DO 064E 1478 $MOVL  UCBSL_DEVDEPND2(R5).-_ ; 
58 0651 1479 R11 3; Extended word is defaulted 
59 =s«#Bl 7D $838 1480 mMOVa (R1)+,R9 3: Get characteristics 
0c 32 D1 065 1481 CMPL R2, #i2 ; Do we get another Longword? 
03 19 0658 1488 BLSS  20$ : Nope 
58 81 00 been 148 MOVL (R1)+, R11 ; Obtain the third longword 
gb gs 208 
ne 1487 : Map VMS characteristics into TSA 
51 000000C8 8F 00 065d 1488 ° MOVL  #200,R1 ; Set size of message buffer *** FIX 
02D2 30 0664 1489 BSBW FDT_ALLOC_MESSAGE ; Allocate a message buffer 
667 1490 ASSUME CTPSB_CH FLAGS EQ CTPSB_MSGTYPE+1 
08 98 67 1491 MOVZBW #CTPS$C_MT_CHAR,- 
2a A 669 149¢ CTP$B_ASGTYPE(R2) ; Set message type 
30 8 668 1494 PUSHR #*M<R4,R5> 3 save , 
F990° 260 1495 BSBW SET : call external routine 
BA 1636 POPR #*A<rd R5> 3 restore : 
40 AS D 0672 149 mMOVQ R9,UCB$B_DEVCLASS(RS) =: Set local copy of characteristics 
48 a5 58 00 676 1498 MOVL  R11,UCBSC_DEVDEPND2(R5) : And extended longwor 
| 
0112 C2 O08 AC BO 067A 1500 MOVW P3(AP) ,UCBSW_CT_SPEED(R2) ; Set speed 
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6 1501 ASSUME ycese CT_CRFILL+1 EQ UCBS$B_CT ght L 
8119 cs of AC 8 ? 8 1 ¢ MOVW P4(APY ,UCB$B_CT_CRFILL(R 2° : Set fills 
134 C 10 AC «6B ! Z MOVW BS CAP). *UCBSUR cT- -PARITY(R2) ; Set aarti 
6 ¢ 13 5 ; RO has LBC if there is no new data to tell server about 
03 50 gS 4 +o § 6LBS RO,30$ 3 continue if Lbs 
0106 «31 6 F 13 : ons BRW SET _NOP ; done 
oi2c Os«é3311 3 1219 ; BRwW SET_READY ; Send message to net and exit 
69 121§ SET_CTRLY: 
57 0090 cS D 695 151 MOVAL UCBS$L rs ai tse: R7 ; Get address of CTRL/Y AST List 
5A 02000000 8 »D 069A 1514 MOVL ‘#<laTT a: Y>,RI0 —-: Set “Y (for Later) 
ee 6A1 1515 BBS #FLGS$V vax 
03 O0pCc C5 BoA 1318 UCBSW_ tt ARTOWAY 10$ ; If VAX to VAX, “C enable is implicit 
QO6A7 1518 ; For RSX and TOPS, this driver must always enable both “C and “Y 
bear 1313 ; when “Y is enabled. 
5A (08s 0647 13 1 a bise #<1aTTYSC_CTRLC>.R10 =; Set *C (for Later) 
00000000'GF 16 se 13 $ ; JSB G*COMSSETATTNAST ; Enable an attention AST 
et 13 5 : If hangup is set, deliver “Y ast to immediately with hangup. 
20 68 AS «(03)—sé€E‘* 0680 15 : 6BC #UCBSV_TT_HANGUP, 
pee 1528 ucesy _BevSTS(R5), CTRL _CY ; Branch if not hangup 
54 57 DO 0685 1529 MOVL RP R ; “Set address of AST echead 
50 64 00 0688 1530 MOVL (R iy" RO gs*. ast block address 
1C AO O2CC 8F 3C 068B 1531 MOYZWL ass. _HANGUP , ACBSL _KAST+4(R ) ; Set AST parameter to hangup 
DD 06C1 15 ¢ PUSHL R6 : save... needed , gore 
56 O0A4 DO 06C3 15 MOVL UCBSL_TL_CTLPID(RS),R6 ; Set controlling PI 
00000000’ GF 16 06C8 1534 $B G*COMSDECATTNASTP : Deliver the AS loneiaell 
56 8EDO peck 1535 POPL R 3: restore 
00c4~—ss 331 eed 13 § BRW SET_NOP 3; Nop this 1/0 function 
06D4 1338 SET_CTRLC: 
57 0094 C5 DE 0604 1539 MOVAL UCBSL_TL CTP. FERS) R7 3; Assume CTRL/C AST enable 
h DO 0609 1540 #<laTTYSC_CTRLC>,RIO  ; Set “C (for later) 
00000000'GF 16 pong 133) JSB GCOMSSETATINAST. : Enable an attention AST 
6E 1328 CTRL_CY: 
59 3B 3C€ O6E2 1544 MOVZWL 9 #<CTPSM_CH_00!- ; out of band handling 
6—E5 1545 ct $m_CRA_DT- 3 discard output 
6E 1308 CTPSM-CH_ wins ; ma - 
59 2800 8F AB O6E5 154 BISW beCIP TPSm_CH discard 
6EA 1348 <CTP$C_CH_ "ECHOSTANDARDaC PSV. CH _EE>= ; echo “C 
6EA 1549 >, RO™ : Set mask 
6EA 1550 ASSUME crPéc sch CANCEL EQ 0 3 assume cancel out of band is zero 
6C 0 6EA 133) TSTL p Foable if non-zero 
o> 867 6EC 1 26 BEQL ‘d 3 if zero, then message ok 
59 0100 8F A8 er 1337 BISW #<CTPSC_CH_ICLEAR@8>,R9 ; immediate clear 
OOBF 31 ef 1388 40$: BRW FDT_SET_OUTBAND :; Go format data 
6F6 1328 
6F6 1557; 
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oF ! 8 : Process a setmode for an outofband ast 
6F6 1560 
or } 5 SET_OUTBAND : 
25 93 ce 9E O6F6 1 8 MOVAB UCBSL_TL_OUTBAND(R5),R Ré 3; Address of the include mask 
5 o9c C¢ 9E ore 1564 MOVAB UCBS$L-TL BANDQUE(R5S),R ; Address of the out of band List 
00000000'GF 16 £09 1366 JSB G*COMSSETCTRLAST 3; Enable the asts 
706 156 3 
706 1208 ; Now, must step through entire O0B AST List and build 
oF ° 1399 : individual summary masks for INCLUDE, EXCLUDE and ABORT types. 
706 1571 : 
00000000 0706 1376 ast_include = 0 
So000008 foe 1874 ete sy 
ast_abor = 
0706 1575 assume ucb$l_ct_exclude EQ ucb$l_ct_include+4 
Be 88 13/8 assume ucb$l_ct_abort EQ ucb$l_cf_exclude+4 
5E OC C2 0706 1578 SUBL #12,SP ; allocate 3 longwords 
58 SE 00 0709 1579 MOVL SP,R11 3 pointer 
010¢ 30 970¢ 1380 BSBW FETCH_OOB_DATA : fetch data from 00B LIST 
59 3F 3C Ore 1386 MOVZWL gota. CH_00!- 
071 1584 CTP SR “biz 
0712 1585 CTP SA CHEE RO : init mask 
0712 1586 ASSUME CTPS$C_CH-CANCEL EQ 0 3 assume cancel = 0 
a 138? ASSUME CTPS$C_CH ~ECHONONE EQ 0 ; and echo nothing = 0 
71 1389 : First, send all the 00B's that have been implicitly disabled 
57 0128 5 9e or 1391 OVA WCBS, ET ANCLURE (RS) »R7 ; Base of Last enabled 00B's 
SA 67 0719 1398 CLUDE (R7) i0 : new AND NOT old into R10 
04 AB CB 0718 1594 BICL3 ASTTEXCLUDE(R115,- 
50 04 A? O71E 1595 AST-EXCLUDE(R7) ,RO ; new AND NOT old into R10 
5A 50 C8 0721 1338 BISL RO,R10 3; add to others 
08 AB «CB «0724 «159 BICL3 AST_ABORT(R11),- 
50 08 A7 0727 1598 AST_ABORT(R7),RO 3; new AND NOT old into R10 
SA 50 CB O72A 1599 BISL RO,R10 3; add to others 
40 10 4 1600 BSBB SEND_OOB_MSG ; send OOB message 
, F 1808 : Now, check excludes 
59 0300 8F AS O72eF 1604 BiSw #<CTPSC_CH HELL O@B> R9 ; Set hello 
5A 04 AB DO 0734 1605 MOVL AST_EXCCUDE(R11),R10 =; Fetch exclude 
04 A? SA D1 0738 1606 CMPL R107 ASt ERE LUDECRT) 3 compare excludes 
02 13 O73C 1607 BEQL ; branch if no change 
oF 10 ? 1o08 BSBB SEND_OOB_MSG 3; send message 
740 1610 : Now, check includes 
s40 iei2 1508: 
59 0400 BF AB 074 1818 " BISW  #<CTPSM_CH 18> .R9 : Set Include bit 
A DO 0745 1614 MOVL AST_INCCUDE(R115,R10 =; Fetch include 
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: Update UCB with new masks 


MOVa AST_INCLUDE(R11),- 

AST-INCLUDE(R7) 
MOVL AST_ABORT(R11),- 
are AST-ABORT(R7) 


MODE, Function deci sion Routine fo 
748 161 CMPL R10,AST_INCLUDE(R7) 
748 161 BEQL ay . 
4D BSBB  — SEND_OOB_MSG 
fot 1 : Now, Check aborts 
74 160$: ° 
74 BICW  #<CTPSM_CH_I!3a8>,R9 
134 BISW #<CTPS$C7CH icLear!- 
759 CTPSM_CA_DS8>,R9 
139 MOVL AST_ABORT(R115,R10 
75D CMP R19 AST_ABORT (7) 
re) sb ue eee 
63 170$: 

3 

3 

3 

3 


R9 = 
R10 = 


100$: 
110$: 


SET_NOP: 


SID DD DDE DEDEDE DDE TT TTT SB PEPE PW 
=O OOO NAN E WIN @ O OOO NAME WIN SO OO NAME WN O OD NAME WN OO OONOAUES WOOO 


Oe a a ee a a ae ee ee ee ee ed dd 
DPDQ_AEAAAAAA AAPA AAA AA AA AAA AHA AAA AAAAAA AAA AAA AAAAAAAAAAAAOAAOAAH 


™~ 


SEND _OOB_MSG: 
: Send a no-quota-charged out of band message 
pe 


~ te of mask and attributes 
& 


=$EP=1986 08:14:20 
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pny includes 
branch if no change 
send message 


Page | 
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Clear Include bit and handling 
immediate clear and discard output 


Fetch aborts 
compare aborts 
branch if no change 
send message 


include and exclude 


ard abort 
exit 


of characters to enable/disable 


TSTL R10 

BEQL 110$ 

PUSHR #*M<R3,R4,R11> 
CLRL 

BSBW SETUP _OUTBAND 


BLBC RO,100$ 
: CTP returned in R3 ! 


SuBL3 CTPSL MSGDAT(R3) .R2,R R1 

MOVW CTP$W_DATSIZE(R3) 

SUBW3 ae Waris ASGTY YPE-CTP$B 
R1,CTPS@_MSGSIZE(R3) ~ 

MOVL *R 

BSBW CT_NET_Q_MSG 

POPR #*M<R3,R4,211> 

RSB 

BRW FDT_FINISHIOC_OK 


e 
. 
. 
e 
e 
© 
& 
7 
oe 


test mask 
ignore if zero 
Save 

set no irp !!! 
set up est ter 


; Make the Len 3 the data 


; save a. the u 
orn -MScTy 
FitL. ay Size of single message 


Set address 


; Send the message to the server 


; Restore 


; Complete 1/0 
: The following types of modifiers are not allowed on remote terminals 


cts 


50 = 0334 ef 
0185 

0144 

OOA8 C5 = 61 
EB 


60 A4 
OOA4 C5 
E3 


FDT_SET_OUTBAND: 


so ab ss os 2s 2s 2 ss hs — ss a ts 2) > ts a ss tt tn ts a st tt 


AOQQAOONOOOOW 
MOODNWW an 


#SS$ PS YTECERR.. RO 
FDT_ABO 


GET 


SETUP OUTBAND 
SET_READY 


#UNBINDSC_DISCONNECT,RO 
SEND_UNBIND 


T_NopP 


(R4) = 
“CTLPID(RS) 
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; Return as device request error 
3 with an error not success 


Get parameters 


ET_PARAMS : 
(R1J,UCB$Q_TL_BRKTHRU(RS); Set bits 
SET_NO 


; Set Pihig 


3; Set controlling PID 
; done 


3; set up out of band messac 
; Send message 


3; unbind reason code 
3 send it with common routine 
3 nop 1/0 


3; no status other than low word 


RO 
a ted bh: EQ_IRP$L_I0sT2 


O,IRPSL10ST1(R3) 
FSS$ NOR A 
TRPSC. 10811 (R3) 
CT_NETMSGSENDX 


; Set status for 1/0 completion 
; Set status 
; Send message and exit 


<- 


| Scat OP Ere ee EE: ee eee ee Ee a ee a ea a Or - ae —- - -~ ——--— 
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-SBTTL SETUP_OUTBAND = Format out of band message 


+ 
+ 
> 


INPUTS: 
R3 
RY 
R10 
OUTPUTS: 
RO 


Ri 
R 


RP (if called from FDT routine) or 0 (otherwise) 
arees of mask and attributes 
Mask of characters to enable/disable 


status 
destroyed 
one byte past formatted message 
IRP (if non-zero on entry) 
- CTP (if zero on entry) 
R10,R11 - destroyed 


SETUP_OUTBAND: 
: Loop through to find out how many bits are set 
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50 D4 CLRL RO ; Count 
52 5A 00 MOVL R10,R2 
a» 2 wwe @& FFS #0,431,R2,R1 : Find first bit set 
06 13 4 BEQL 20§ 3; If zero, then exit 
50 4 INCL RO 3; increment 
43 see PUSHL Ri ; Save char to use later? 
F352 51 €4 208 BBSC R1,R2,10$ ; Clear bit and loop 
51 50 05 3 4 MULL3 #5,R0,R1 3; length of data *** 
—_-— « ADDL2 #CTPSW_CH_PARAM.R1 : header 
3 o TSTL R ; irp or not? 
05s BEQL 30$ : branch if not 
0148 30 75 BSBW FOT_ALLOC_MESSAGE ; Allocate a message 
09. =«1i7 75 BRB 5$ 3 skip 
012" = 330 752 308: BSBW ALLOC_CTP 3; get message buffer 
2405 €9 75 BLBC RO,60$ s exit if error 
53 52 00 A 355 MOVL R2,R3 : Set CTP address 
75 ASSUME CTPSB_CH_FLAGS EQ CTPSB_MSGTYPE+1 
0B 98 F 75 MOVZBW #CTPSC_MT_CHAR,- 
A Ag FB 175 CTP$B_ASGTYPE(R2) : Set message type 
52 CA 9E F 2 608 MOVAB CTPSW_CH_PARAM(R2),R2 ; Address of data in message 
5B SA IF 90 A Q 76 FFS #0,#31,R10,R11 3; Find first bit set 
F 3 76 BEQL 50 : If zero, then exit 
82 0202 8F 60 8 76 MOVW #<CHSC_CTERM@8!- 
76 CHSC_CT_CHAR_ATT>,(R2)+ ; set characteristic selector 
$ B 90 0 76 MOVB R11, TR2T+ ; Set data 
9 BO 0810 176 MOVW RO Red : Initialize Longword 
EA 5A B £4 1 76 BBSC R11,R10,40$ ; clear bit and loop 
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50 01 O81? 1588 “0 MOVL #1,R0 Set s s 
. ; Set succes 
8 1A 1558 60$: RSB 


CIDRIVER = Command T 
voe-008 FETCH_OOB_D 


ro 
45 
>3 


fetch data from 0OB Lis 5-SEP-19 RTPAD.SRCICTDRIVER.MAR; 1 


18 1773 = .SBTTL FETCH_OOB_DATA = fetch data from 008 List 
18 177 § : FETCH_OOB_DATA = fetch data from 00B List 
18 1276 : Functional description: 
1B 1778 : Run through 008 List and build 3 masks - one for each 
18 AG : type of O08 enable. 
i 1? 1 ; Inputs: 
18 \f S| ; R11 = points to 3 long word region, uses AST_ offsets 
0818 7 5 Outputs: 
081B 17 $ AST_INCLUDE (R11) 
081B 1788 : AST-EXCLUDE (R11) 
O18 1789 ; AST-ABORT (R11) 
O81 1791 : RO,R1,R2 destroyed 
O18 1798 FETCH_OOB_DATA: 
7¢ 0818 1795 CLRQ = (R11) : clear 
08 AB D4 081D 1796 CLRL (R11) : clear 
57 o009C C 9E 0820 179 MOVAB. UCBSL_TL_BANDQUE(R5),R7 ; Address of the out of band List 
3 ; fe 108 DSBINT UCBS$B_DIPL(RS) ; Interlock Queue access 
52 67 00 08 t 1800 : mOvL (R7) .R2 ; get next TAST block 
52. EG Ag 9E 0831 180¢ MOVAB =TASTSL_FLINK(R2),R2  : get base of block 
50 2D A2 9A 0835 180 MOVZBL TAST$B_CTRL(R2) ,RO : get control byte 
18 50 04 €0 0839 1804 S AST$V_LOST,RO,50$ : tlagged for delete, ignore 
51 30 A2 D0 083D 1809 MOVL TAST$L_MASK(R2).R1 : save mask 
OF 50 05 £0 0841 1 06 BBS #TASTSV_ABORT,RO,40$ =: branch if abort 
0650 01 £0 0845 1 BBS #TASTSV~INCLUDE,RO,30$ : branch if include 
04 AB «2S1~Cté«éG’ 0849 1808 BISL  R1,AST VEXCLUDE (AILS > set exclude 
9? 11 4D 1809 kee 3 continue 
68 31 c8 OB6F 10 30S: BISL R1,AST_INCLUDE (R11) > set include 
3; cont 
08 AB OCS1~S—té«CGB’ 084 1 40$: BISL R1,AST_ABORT(R11) ; add to abort flags 
57 1C A2 DE 0858 1814 50$:  MOVAL TASTSL_FLINK(RZ),R7 ; point at flink 
. ee OB9¢ 1815 BRB 10$ : Loop 
OBSE 1819 100$: ENBINT ; enable interrupts 
0861 1818 RSB 
0862 1819 
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ee «SBTTL CT_SENSEMODE, Function Decision Routine for SENSEMODE/SENSECHAR 
; CT_SENSEMODE, Function Decision Routine for SENSEMODE/SENSECHAR Functions 


| 
| 


: Functional description: 


This routine is called by the SYS$QI0 service to dispatch a SENSEMODE 
or SENSECHAR I/0 request. 


The Q10 parameters for terminal SENSEMODE/SENSECHAR are: 
Pl = gédrese of 8 or 12 byte characteristics buffer 
P2 = 0, 8 or 1 


The buffer is validated for access, the process's quota checked and 
decremented, a message block is allocated, the address of the message 
block is stored in the IRP, and the IRP is queued to the ACP for 
delivery to the remote system. 


; Inputs: 


RO-R2 = scratch regis 

R address of the IRP (1/0 request packet) 

address of the PCB (process control block) 

address of the UCB (unit control block) 

the CCB (channel control block) 

bit number of the 1/0 function code 

R address of the FDT table entry for this routine 
R9-R11 = scratch registers 

AP = address of the 1st function dependent Q10 parameter 
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; Outputs: 
IRP$SL_SVAPTE(R3) = address of menpogs buffer 
IRP$W_BOFF(R3) = size of message buffer 
IRP$L_MEDIA(R3) = address of user characteristics buffer 
IRP$W_BCNT(R3) = size of user characteristics buffer, 8 
The routine preserves all registers except RO-R2, and R9-R11 
T_SENSEMODE : ; SENSEMODE/SENSECHAR FDT routine 
42 A3 RF CLRW IRP$W_CT_POST(R3) ; Clear POSTed ae 
0478 0 ° BSBW CT_WRITE_WRTCTP ; See if flush must happen 
59 20 A3 3C r+ MOVZWL IRPSW_FUNC(R3) ,R9 : Fetch function code 
08 59. «07 1 6 BB #10$V_RD_MODEM,RI,2$ ; skip if not read modem 
50 0334 8F ic 7 MOVZWL #SS$_DEVREQERR, RO ; Return as device request error 
0080 1 f 28 BRwW FOT_ABORT ; with an error not success 
51 6 0 7? : MOVL P1(AP) ,R1 ; Get address of characteristics buffer 
007D 30 78 BSBW FDOT CHARSIZE ; Size of chars buffer (return in R2) 
50 OC C 7E MOVZWL #SS$ ACCyA RO ; Assume access violation | 
) IFWRT R2,(R1),1 ; Buffer accessible? 
009E 31 87 03 a BRW FOT_ABORT : Branch if not 
08 59 #OE €E1 8A $ BBC #10$V_BRDCST,R9,12$ ; Branch if not brdcst bit request 
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61 O0AB CS 7D 187 MOV  UCBSQ_TL_BRKTHRU(RS),(R1) ; read bits (no remoting of this?) | 
bo 31 3 8 ion BRW FDT_FINISHIOC_OK ; Complete 1/0 ’ | 
3 A 2} DO 36 1 ? : MOVL R1,1RPSL_MEDIA(R3) ; Save address in packet 
A § ° 9A 1 ; MOVW R2,1RP$W_BCNT(R3) ; Set size in packet 
2A a3 02 A i ; BISW #IRPSM_FONC,IRPSW_STS(R3) ; Set READ type function | 
Py | 
rs ! 5 ; For sense type-ahead, always use CTERM | 
0c 59 06 €0 BaAe ! : bps #1OSV_TYPEAHDCNT,R9,15$ ; Branch if sense type-ahead | 
OBAG ! ; : Send CTERM or VAX message 
OF €1 0 Ag 1891 BBC #CTPSC_MT_VMSQIO,- | 
1¢ 0108 C5 O8A8 1 3 UCBS$L_CT_CEGALMSG(R5),20$ ; Branch if not VMSQIO support 
F751" 3 O8AC 189 BSBW CT_VMS_SENSEMODE ; Format VAX message | 
0465 1 peat 1898 98 BRW CT_NE TASGSENDX ; Send message and exit | 
eee ORB 1 38 ; CLRQ (R1) ; Clear output buffer | 
51 ¢¢ Hs 08B4 189 MOVZWL #CTPSC_CI_LEN,R1 ; Set size of message buffer 
007F 0 0887 1898 BSBW FDOT ALCOC"MESSAGE ; Allocate the message buffer | 
OC 98 O8BA 1899 MOVZBW AC MT_CHECK_INP, 
2A AZ OBC 1900 CTPS$B_MSGTYPE(R2 | 
40 AS 0D 90 O8BE 1901 MOVB #CTPSC_MT_INP_COUNT, - 
ne 1306 IRP$B_CT_RESPTYPE(RS) =; Set expected response type (input count) 
52 2C A2 4 O8C2 1904 MOVAB C7OSS CL _FLAGEST (RZ) .R2 ; Set end of message | 
1F 11 08C6 1905 BRB 0$ 
BEER 10H 20s: 
08C8 1908 : CTPSAB_SENSEBUF is a fixed structure used to sense all characteristics 
+e 1308 ; relevant to VMS. 
OO2ZE'BF 3¢ O8CB 1911 MOVZWL #CTPSK SENSEBUF+4+ - | 
51 pace 131¢ CTPSB_ASGTYPE,R1 ; Set size of message buffer | 
0069 30 O8CD 1914 BSBW FDT_ALLOC_MESSAGE ; Allocate the message buffer 
40.A5 08 90 0800 1915 MOVB #CTPSC_MT~CHAR, - | 
a 1318 IRPSB_CT_RESPTYPE(R3) ; Set expected response type 
BB 0804 1918 PUSHR #*M<R2,R3,R4,R5> ; Save registers | 
0000°BF 28 0806 1919 MOVC3 #CTPSK- SENSEBUF ,- 
2A A2 = 0000'CF O8DA 1920 W*CTPSAB_SENSEBUF, - 
peor 1921 CTPSB_MSGTYPE(R2) : Copy data 
51 53 00 DF 19 § MOVL R3,R ; Save adr beyond data | 
ef BA th 19 POPR #*M<R2,R3,R4,R5> ; Restore the registers 
52 1 00 +t + : 308 MOVL R1,R2 : Pointer beyond data in message 
042D 31 OBE7 1926 BRwW CT_NE TMSGSENDX ; Send the message and exit service 
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y 13 = -SBTTL FDOT support routines | 
EA 19 p : FDT_CHARSIZE | 
EA 19 : : INPUT: _ - 
n 13 7 5 P2(AP) 
EA 1935 : OUTPUT: | 
th 12 § ; R2 = 8 or 12 for size of characteristics buffer 
bEA AY 5 ; ABORT with status = SS$_BADPARAM if P2(AP) is not 0, 8, 12. | 
oo 
th 1306 GET_PARAMS: 
51 6C DO OQOBEA 1944 MOVL P1(AP),R1 ; Get address of characteristics 
OC 10 OB8ED 1945 BSBB FOT_CHARSIZE ; Obtain the size of the char buffer 
50 OC 3C OB8EF 1966 MOVZWL #SS$_ACCVIO,RO ; Assume access violation 
OBF2 194 IFNORD R2,(R1),10$ 3; Characteristics accessible? 
05 ber 1308 108 RSB 3 return 
2. «11 OBF9 1950 "BRB FDT_ABORT : error 
O8FB 1326 FDT_CHARSIZE: 
52 04 AC 00 O8FB 195 MOVL P2(AP), R2 ; Size of characters buffer 
OD 135 OB8FF 1954 BEQL 10% ; Zero is for 
mR ee ao ty le oe te a 
OA 1F 0906 1957 BLSSU 0$ : Less is no good 
oc 52 01 0908 1958 CMPL R2, #12 3; Must be 12 and nothing else 
0 OS bo0n 1900 pat 508 ‘ee | 
52. 08 DO O90E 1961 10$:  MOVL #8, R2 : Use 8 if zero | 
05 aah 1366 20$: RSB 
50 4% 3C 0312 +e 30$: MOVZWL #SSS$_BADPARAM, RO ; Abort qio with an error 
0915 1966 ; 
Bale U4 : Finish 1/0, clear R1 | 
$918 1969 FDT_FINISHIOC_OK: 
os H x 0913 13970 jo einteotae #SS$_NORMAL ,RO ; Set status OK 
50 DD 0918 1978 ~ “""PUSHL = RO ; save | 
50 D4 O91A 197 CLRL = RO 3 set position 
orge 0 QO91C 1974 BSBW CHECK_POST_IO ; check for error, set posted 
bat 91F 1975 POPL 3; restore 
00000000 ' GF > 1308 : JMP G*EXESF INISHIOC ; Complete 1/0 request 
5 1975 ; Error processing - abort 1/0 request | 
928 1981 FDT_ABORT: ; 
50 od 09 19 ¢ USHL 0 3 save 
50 01 QA Q92A 19 MOVZBL #1,R0 3 set position 
01BD 30 0920 1984 BSBW  CHECK_POST_IO : check for error, set posted | 
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-SBTTL FOT_ALLOC_MESSAGE, Allocate a message buffer 


+ 
FDT_ALLOC_MESSAGE, Allocate a message buffer to send to remote process 
SET-MSGHDR, Setup a message header for broadcast 
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Functional description: 


This routine checks that the process has sufficient buffered 1/0 
byte count quota for the message buffer, and then allocates the 
buffer from non-paged pool. The process's buffered I/0 byte count 
quota is decreased by the size of the allocated buffer and the 
message header information is stored. 
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Inputs: 


Rl = size of message required 
R3 = address of IR 
R4 = address of PCB 


Outputs: 


Ri = size of buffer 
R2 = address of buffer 


IRPS$B_CT_RESPTYPE = response type cleared 
= f buffer 
size of buffer 
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Block type 

size of message buffer 
message size, zeroed 
PROSC_DATA 

response type, zeroed 
address of data 
zeroed 


R2 
C YP 
c 35 
C 5} 
If process does not have sufficient quota, the I/0 request 
is aborted. 
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; Allocate message buffer 
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FDT_ALLOC_MESSAGE: : 
PUSHL R3 
JSB G*EXESBUF FRQUOTA 
BLBC RO,ALLOC_ERR 

; Allocate the message buffer 


JSB G*EXESALLOCBUF 
BLBC Bg -ALLOC_ER 
POPL R 


Adjust process's quota 
MOVL PCBSL_JIB(R4) ,RO 
SUBL R1,JIB$L_BYTCNT (RO) 
MOVW R1, IRP$W_BOFF (R3) 
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Save packet address 
Check quota 
Branch if error 


0000000 Or "6 
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00000000'GF 16 Allocate the buffer . 
2c 29 E9 Branch if error 
8EDO 


Restore packet address 


Get Job Information Block address 
Adjust buffered 1/0 byte count quota 
Save buffer size as quota 
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95D 46 ; 
3 cf : Set up CTP with associated IRP data 
2c a3 552)—iéis«095D rk , MOVL R2, IRPSL SVAPTE(R3) Save buffer address in packet 
961 0 ASSUME IRP TRE sPryegel EQ IRPS $B_CT_CANCEL 
961 1 ou nese ‘Te CAN 5° _— W_CT_POST 
40 Ads G +9) 038 CLR B_cT “RESPTYPE(RS) Set no response type, cancel or post | 
44 2¢ i ; Store message header information | 
964 36 : RO = Clobbered 
964 : 3 R14 = Buffer size 
964 8 3 R2 = Buffer address 
366 5080 
poee 38) SET_MSGHDR: 
964 $0 ASSUME CTPSB_PRO_MSGTYPE+1 EQ CTPS$B_P bL 
+ #1 +¢3 ASSUME CTPS$B_ PRO “MSGTYPE+2 EQ CTPS$W “MseS 12 
09 9A 0964 2066 MOVZBL epnosc DATA 
26 A2 966 2067 TP$B_PRO MgGTY YPE(R2) ; Assume data type, zero fill & msgsize 
08 A2 51 BO 0968 2068 MOVW Ri, Bg SIZE(R2) ; Save buffer size in message 
13 90 096C 2069 MOVB #DYNSC ¢ BOF LG ~ 3; Set block type 
OA A 096 070 CTPSB TYP YPE(R2) 
66 A 9E 09 071 MOVAB CTPS$B_PRO_MSGTYPE(R2),- ; Set address of data 
CA 097 te: CTPSL_MSGBAT(R2) 
10 A2 D4 097 07 CLRL. CTPSL_USRBFR(R2) ; Set user buffer address 
Bh Sete , 
34a ore ALLOC_ERR: 
53 BEDO 0979 2078 POPL R3 3; Restore R3 
FFA9 31 oO97Cc 079 BRW FOT_ABORT ; Abort the 10 
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VOen 008 ALLOC_CTP = allocate a CTP ety $8: 7:20 CRIPAD.SRCJICTDORIVER.MAR; 1 . (22) 
4g -SBTTL ALLOC_CTP = allocate a CTP 
144i ALLOC_CTP: 
4h ; Allocates a CTP and does not charge quota. 
97F ; 
ey 18 97F 8 JSB SEER ONOPAEES ; allocate CTP 
06 9 3 BLBC RO,10$ :; Branch on error 
FFD 0 9 0 BSBW set MSGHDR : Set up message header 
50 oi. a 9 ) MOVL #1,R0 3 success 
98E 38 10$: 
05 O9B8E .] RSB 3 return 
98F 2094 
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8 / 98 oa -SBTTL CT_INTERRUPT Interrupt handler 
2 : 4 ; CT_INTERRUPT, 1/0 completion interrupt handler 
: F 0 : Functional description: 
98F 1 § : This routine handles an 1/0 completion ‘‘interrupt’’ from the ACP. 
98F 2103; The 1/0 status and data is obtained from the response packet from 
2 : | ¢ : the remote terminal handler process, and the I/0 request is completed. 
4 F $ : Inputs: 
98F 21 8 : R3 = address of the IRP 
9B8F 2109 ; R5 = address of UCB 
> ; 119 $ IRPSL_SVAPTE(RS) = address of response message 
O38 ig : ipl = ipl$_iopost 
3444 WW > Legal message types are: 
098F 116 : 3 = read data 
344 117 ; 8 = write complete 
O98F 18 3 11 = characteristics 
+4 1% 3 13 - input count 
O98F 1 : Outputs: 
Bone : § : 1/0 status copied to IRP$L_IOST and I/0 request posted. 
O98F 2125: RO-R2 are scratch. 
Hae 
bone 128 CT_INTERRUPT: : 1/0 completion interrupt handler 
56 DD O098F 129 PUSHL R 3; Save R6 
0200 8F <A8 0991 2130 BISW #IRPSM_TERMIO,- 
A A3 995 2131 IRP$W_STS(R3) ; Set terminal 1/0 completion 
56 8 AS 00 0997 21 ¢ MOVL IRP$L_MEDIA(R3) ,R6 : Save media (same as IOST1 Location) 
01 BO 0998 1 MOVW #SS$_RORMAL,- 
38 AS 99D 2134 IRP$C_10ST1(R3) ; Assume success 
52 2C A3 00 99F 2135 MOVL IRP$L_SVAPTE(R3) ,R2 ; Get address of message 
26 C3 O9A3 21 : SUBL3 #CTP$B_PRO_MSGTYPE,- 
51 62 eae ! : (R2),RT : Point to message 
50 2A Al 9A O9A7? 2139 MOVZBL CTPSB_MSGTYPE(R1),RO : fetch message t 
50° 03 91 O9AB 3140 CHPRY” BCTPSC TREAD DATACRO : fs'it stresds Pe 
SB 13° O9A 141 BEQL POST_READ ; Branch if yes 
50 88 4 Hs 136 cnee #CTPSC_MT_WRITE_COM,RO 3; is it a write? 
O0DD s31 . \e¢ 108 BRwW POST_WRITE ; Branch if yes 
50 08 91 oB8 146 " - CMPB = #CTPSC_MT_CHAR,RO : is it a read char? 
0 12 O9BB 214 BNEQ 3 nope 
0082 = 31 3 138 158 BRw POST_SENSE ; Branch if yes 
50 60 3 i 13} ; Sas #CTPSC_MT_INP_COUNT,RO ; Input count? 
00E9 31 9C 152 BRW POST_SENSE_TYPEAHD 3 post send type ahead 


K 15 
CTORIVER = Command Terminal Protocol Driver 16-SEP-1984 02:22:54 VAX/VMS Macro v04-00 Pa 4 
Voen O08 CT_INTERRUPT Interrupt handler mits 86:92:35 RTPAD.SRCJCTORIVER.MAR; 1 ”. (23) 
ace 153 
56 BED ace ! 2 208: winen =ERROR : increment error count 
0 3 
g ar ! . RS g ; Is this a minor error? 
B8 ! gi Set up buffer to post READ 
90 160 BosT_READ: 
0¢ AA 09D 196 BICW #FLGSM_CTRLO,- 
oop¢ C 902 216 UCB$W_CT_FLAGS(R5) ; Set no control 0 
62 32A1 9 9D 190 MOVAB CTPST_RD_DATA(R1),(R2) ; Set address of data 
04 A2 56 OD 8444 19? MOVL R6,4(R2) ; Set address of user buffer 
O9D0 169 : FILL in 10SB status 
50 3C A3 3C O9DD 2169 ° MOVZWL IRPSL_IOST2(R3),RO ; Fetch net message data Length 
38 A3 4 449, 170 CLRQ IRPSL— a R3) : clear status 
~~. & s&s 9E4 2171 SUBL2 #<CTP bgt DATA- - 
09E7 76 CTPSB PRG. ASGTYPE —>,RO ; subtract out header 
32. A3 50 B1 O9E7 217 MPW RO, IRP$wW OBCNT CRS) ; Size of data greater than user buffer? 
06 1A O9EB 2174 BGTRU :; If gtru yes - leave user's size 
32 Ad = 50 89 O9ED 2175 MOVW RO, IRP$W_BCNT(R3) 3; Else, set size to actual data size 
a 5 34a 176 BEQL 20$ : If no data, terminator data not needed 
oer 178 : Set terminator data into I0SB 
of 180 ios 
56 30 Al 3C O9F3 2181 +  $ MOVZWL CTPSW_RD_TERM_POS(R1),R6 ; Fetch offset to terminator 
3A A3 56 BO ODF HT R6, IRP$L-IOSTT+2(R3) 3 Set offset to terminator 
3E AS «65500 556 ASS.s*OODFE 28 SUBW3 = R6, RO, IRP$L_I0ST1+6(R3) : size of terminator 
50 62 00 OA0 Ht: MOVL (R32) RO etch address of data 
3c Ad 6046 Ads 185 MOVZBW {RO} ERO), IRPSL_ 10ST1+4(R5)" ; fernineter cheractes 
nt} fa ; Skip final fill in if not extended mode read 
OF €1 OA08 189 . BBC #10$V_EXTEND 
09 20 A3 AOA 2190 PSW~FUNC (RS) ,208 
30 AS —01_ts*8B AOD 2191 MNEGB #1 [RPSL OST 1183 153) 3 set unused byte to -1 
ef Al ] Al} 136 MOVB CTPSB_R DA CURS PO S(R1),- 
F A3 mre 13? IRPSL_ fostis TR3) ; Set cursor position from EOL 
A16 2195 ; Map TSA read status to VMS read status 
Ale 136 ° 
se @ Ce th Pe 
50 2B A1 A119 2199 htt RD_FLAGS(R1),RO ; fetch status bits from read data flags 
0 04 91 OAIC 2200 CMPB scTPSA_ RB_INPFULL.RO  : input buffer was full? 
03 12 OAIF 01 BNEQ 30$ ; if no, branch 
3C A D4 0A21 bs CLRL IRPSL fosTaeaias : Clear terminator data 
38 A3 F64F CF40 BO OA24 03 30$: MOVW STAT_TAB LGtnO 
A2B 4 IRPSC_ OST (R35 ; Get VMS status 
38 ASI A2B 5 CMPW ie P$L-IOST1(R3),- 
0611 8F A 5 $ #SS$_ CONTROLY ; CONTROL Y? 
12 OA BNEQ 3 no, continue 
El OA 3 08 BBC #FLGS - 
06 00DC C5 A 9 UCBSW Su CT FLAGS(RS) ,50S : branch if *C not just delivered 
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v04 CT_INTERRUPT Interrupt handler : mets 9g: 92:35 RTPAD.SRCICTORIVER.MAR; 1 ve (23) 
063) SF BO 0OA39 1 MOVW #SS$_CONTROLC,- 
BA A3D IRP$C_10ST1(R3) ; set VMS status to “C 
008 31 OASF 50$ BRw POST 3 


: Set up buffer to post SENSEMODE/CHAR 
POST_SENSE: : 


MOVAB ee, tae tamaa ; Set address of data 


62 2C Al 9 AS 
56 ; Set address of user data 


04 A256 


OFD6 8F BB ASA PUSHR #*M<R1,R2,R4,R6,R7,R8,R9I,R10,R11> * seve 
52 1 pO OQA4E MOVL r Set address of of CTP 
59 ¢ a3 9— 0AS1 MOVAB IRPSL_FPC(R3),R9 : Set address of 12 byte buffer 
SA AS 9E 0A55 MOVAB IRPSL~10ST1(R3),R10 : Set address of 8 byte buffer 
69 7C OAS9 CLRQ (R9) ~ 3; clear 
08 Ad 4 OASB CLRL 8(R9) : clear 
6A C we CLROQ (R10) 3; clear 
F59D" 30 OAgs BSBW CT_POST_SENSE ; Map List into qio data 
OFD6 8F BA Bags POPR #*M<R1,R2,R4,R6,R7,R8,R9,R10,R11> ; Restore 
A3 7D 0A67 MOVQ IRPSL_FPC(R3),- 
2c Al OA6A CTPSW_ PARAM(R1) : Move data into place 
74 AS dO A6 MOVL IRPSL— 


R3),- 
CTPS$wW_ ch *PARAM®B.(R1) ; Move data into place 
; Set bits that can't be read through CTERM 


A71 : 
50 44 AS FF28DFFA 8F CB OA71 BICL3 #REMO 
OA7A UCBSL TE eVSEPEND(RS) . RO ; Clear all bits that can be read 
30 Al 5 C8 OA7A BISL RO abe 5 WCHL PARAM+4(R1) : Set bits that can't in return data 
50 48 a5 0 CB OA7 BICL3 @#R 2 


OTE 

UCBSL DEVOEPND2(R5), RO ; Clear all bits that can be read 
BISL RO CTPSW_CH_PARAM+8(R1) : Set bits that can't in return data 
MOVL  CTP$W_CH~PARAM(R1) ,~ 

UCBSB =DEDCLASS (Ro) 3 store class, type and bufsiz 
MOVQ CTPS$w_ CH_PARAM+4(R1),- 

UCBSL =DEVDEPEND(R5) ; store in UCB 
ese SENSE_SPA sense bits for DCL 


POST_WRITE: 
BBC #CTPSV_WC_DISCARD 


0 

2 
34 Al. 50 C8 OA83 
‘l DO 0A87 
C 


PDRPEDPPRPED Gs ss Be BB EB ENNIO PIPONPONDNUNPININY NY 2 OO Os 
ANEW 9 OD NANI $$ O OO NAME WN @ OOO NAME WN OS OO NAME WN 9 OONOUNS 


PIP IPIPININIPIPINDNYDIPYPINPINIPININIVAINPINININININININPININIPIPINYNINIPIPUPINPIDIPYINIPYIPININPINPIPIPPIPINPINPIPININPYD 


wen 

soon 
*>>>yp 
ou 
-_- ws 
So 

oO 
>>>> 
Oo 
ab “FR 
PRIPQPIPIPIPIPUPIPIPIPYPIPOPINIPIMPIPUNIPOPINIPINIE. POPP PONY 


06 28 Al A97 CTP$B_GC_FLAGS(R15,10$ ; branch if not “Oed 
0609 8F BO OA9A MOVW #SS$ CONTROLO,- 

8 A3 ng a IRPSC_10ST1(R3) ; Set *O status 

2.03 BO OAA MOVW  IkP$W_BCNT(R3),- 

AA AA IRP$L~10ST1+2(R3) ; Set byte count ? 

C Al 90 OAA MOVB  CTP$W"WC_HORPOS(R1),- 

E A3 AA IRP$L_10$T1+6(R3) ; horizontal position 

¢ Al 90 OAAA MOVB  CTP$WTWC_VERPOS(R1),- ge 

F AS AAD IRP$L_10$T1+7(R3) : vertical position 
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CT INTERRUPT Interrupt handler -SEP=1 RTPAD.SRCICTDRIVER.MAR; 1 
18 #11 nat ef BRB POST 
“ei § POST_SENSE_TYPEAHD: 
HS A 3 AB f MOVZWL {Rest 10ST ECR). RO : Fetch -net snessoge data length 
A ‘ AB CLRQ IRP$L_IOST1(R3) joss, 
' A3_ 07 8 AB 7 Ovw #sss RORMAL . 1RPSL 19st1 cR3) ; osB 
2c 4} ra fe MOVAB CTP$Q iC. COUNT (R1J, ¢ Set caress of data 
4 D AC 5 VL R6,4(R2)~ : Set address of user buffer 
32 a3 5 b ACS 6 SUBW3 © #CTPSC_IC RSGL Ene? RO. ; normal msglen = 2 gives return Length 
ACI 227 IRP$W_BCNT(R3) ; note this works for VMS ‘Longer’ IC msg 
AC9 4 POST: 
56 BEDO OAC9 7 POPL R6 3; Restore R6 
ACC 80 POST_I0 3 post 1/0 
50 OACC MOVZBL #POST_COUNT,RO 3 set position 
001B 30 OACF BSBW CHECK" POST_ io ; check for error, set posted 
00000000'°GF 16 aoe JSB G"COMSPOS i : post I/0 
05 OAD8 2281 RSB 
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youn 008 SENSE_SPAWN Sense for spawn g- -SEP-1984 4 88: 9¢' 34 RTPAD.SRCICTDRIVER.MAR; 1 - ay 


~ ? -SBTTL SENSE_SPAWN Sense for spawn 
AD S$; Sense s acral gneres ter testes bits for DCL spawn command. 
AD § 3 oo, or ctrl/c ast, outofband ast and associated aaijiben, 
AD 5 These bits may be reused later and are not for customer application 
AD 8 3 consumption. 
AD9 3 
AD9 0 ; inputs: 
AD9 91; ri => CTP message 
AD9 92; R5 => UCB 
AD9 9 
AD 94 SENSE_SPAWN: 
50 34 A1 9E OAD 95 MOVAB ATtasR Che TOBATLBK,( RO ; Address of the characteristics 
60 0200 8F AA OAD 36 #1T2$ MAILBX, (RO) : Reset mailbox 
60 AS b AE y TSTL UCBSL_ 3; Any associated mailbox? 
93 1 AE 98 BEQL 10$ 3 No 
60 0200 8F AB ee 3D 108 BISW  eaglehaped ; Yes, so set characteristic 
05 OAEC 2301 RSB 


vou 000" CHECK POST 10" vatidere 170 Oriya Mer See19be 88:95:00 EmtPap smeicroniver mars? % (38) 


BBSS RO, IRP$W_CT_POST(R3), 108: met posted flag 
108: RSB 


20$: BUG_CHECK CTERM,FATAL ; should never happen! 
RSB ; never get here 


nid 3 .SBTTL CHECK_POST_IO, validate I/0 to be posted 
SO 
AED : Make paranoia check Shot 1/0 about to be posted has not been posted before. 
wi 3 ; Bugcheck system if it has. 
AED 10; Input: 
AED eS: no - pest Location 
a Rip ee 
AED 1 ; Output: 
AED 1 : IRPSW_CT_POST is set as “posted” 
AED Vw 3 
AED 5319 | 
wi 31 CHECK_POST_I0: 
42 a3 ED § TSTW ieee CT_POST(R3) ; eevee if non-zero 
BNEQ ranch if problems 
5 
8 
29 


WWWANN 
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VOL 000 CT_CANCEL, Cancel 1/0 naar 1 Fe aed 88 4:20 CRIPAD.SRCIJCTORIVER.MAR; 1 - 8) 


ard aa -SBTTL CT_CANCEL, Cancel 1/0 routine 
Arp 7 ; CT_CANCEL, Cancels an I/0 operation in progress 
vv 5 : Functional description: 
AFD 5 : This routine cancels any CTRL/C or CTRL/Y AST's that were 
rr 3 : requested by the cancelling process on the canceiling channel. 
AFD 40 : If there are no more references ponpratng to the device, the UCB 
AFD 41; is queued to the ACP to notify it that the device is no longer in 
AFD rk 3 use. The ACP will then check that the reference count is still zero 
v4 4 rt : and remove the UCB from 1/0 database and deallocate it. 
av rf : Inputs: 
OAFD 23 : Re = negated value of the channel index number 
AFD rh ; R35 = address of the current IRP (1/0 request packet) 
AFD 49 ; R4 = address of the PCB (process control block) for the 
OAFD 2350 ; process canceling I/ 
OAFD 2351 ; RS = address of the UCB (unit control block) 
OAFD 26 i R8 = Cancel reason code 
OAFD 53; 
OAFD 54; IPL = driver fork IPL 
BOB BEEF outou 
; Outputs: 
OAFD 57 ; 
OAFD 58 ; DEVSM_DMT is set in UCBSL_DEVCHAR to prevent a race if someone 
OAFD 2359 ; assigns and deassigns another channel to the UCB before the ACP 
we 300 : dequeves the UCB. 
ee 306 : The routine preserves all registers except RO-R3. 
AFD 364 ‘ENABLE LOCAL_BLOCK 
OAFD 386 ASSUME CANSC_CANCEL EQ 0 
we 36 ASSUME CANSC_DASSGN EQ 1 
0093 3] ds é3 10$: BRW 130$ 
0087 1 pa8 A 20$: BRw 120$ 
p88 ts CT_CANCEL: ; Cancel an 1/0 operation 
O1DA 30 0806 fe BSBW CT_WRITE_WRTICTP ; Flush write buffer 
OEFO 8F 6B Ba 7 PUSHR #*M<R4,R5,R6,R7,R9,R10,R11> ; Save registers 
04 «£1 A 237 BBC #UCBSV_ ONLINE ,- : If clr unit offline - probably template 
EE e AS 0c 78 UCB$W_STS(R5) ,10$ ; 
C AS 3 OF 79 TSTW UCBSWIREFC(RS) ; Any more references to device? 
1? +} BEQL 0$ 3; Nope all done. 
1? 8 : Send UNREADs for all current reads in server. 
0585 30 1 4 BsBW © CT_SEND_UNREAD ; Cancel outstanding read IRPs 
iy § ; Cancel all IRPs waiting in STALLQ that match this cancel 


51 OOF 3 
0 
51 008 5 
1 
SA 
58 
08 
h0000000" ge 
57 0094 C5 
61 
OF 
00000000 * GF 
0094 C5 
03 
5A 08 
2s 0098 C5 
5 009c C5 
5 
sa 88 
00000000 ° GF 
é3 
SA 6 
59 
FBFE 


de 

oi 8 

:. 
09 


ow 


or 
ts §=69TT 


—O79F Wwowo - 


wns omom i 


? 
RON Ca 
c 


> 


ttt ttt tt ttt tt ttt ttt ttt 


mm PNR MOWUM Om 
AEWA PE 


“oo O- O-—-090 —-9 


io) 

m 
o°o-0”97g 
POCoo 


SSSSSHOSS OOS HOOD SOOO DOOD SOS 
COUIMO YS PNOOVT WIN - MOV OOVvc TTT 8 ONS 


WAP PPS PVAAAATVEISSSsS 
PPPS I SSS SS SS SYS SS 
Sete Ge 


> POOVUTLU "OO > \Y YP PV em 


An attempt is made to get an unbind throu 


oo 
> 
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ncel 1/0 routine -SEP-19 :14:20 CRIPAD.SRCICTDRIVER.MAR;1 (26) 
MOVAB UCBSL_CT_STALLQFL.75),R1 ; Stall @ 
BSBW CANCEC_LIST 3 run down List 
MOVAB UCBSL ait IRPFL(RS5),R1 ; Queue irp 
BSBwW CANCE CEC_LIST 3 run down List 
CLRAL R10 ; Mask for out of band disable 
TSTL rt ; Cancel or deassign 
BEQL 40$ 3; Cancel 


; Note that cancel “Y out of bands are never sent 
hOvat UCBSL_TL_CTRLY(RS),R7 Get address of CTRL/Y Ast List 


40$: 


G*COMSF_LOSHATINS ; Flush all cancelled AST's 
MOVAL UCBSL_TL_CTRLC(RS) ,R7 : Get address of CTRL/C AST List 
TSTL (R7) 3; zero 
BEQL 50$ ; skip fioch 
JSB G*COMSFLUSHATTNS ; Flush any cancelled AST's 
TSTL UCBSL_TL_CTRLC(R5) Bw Did get flushed (status would 
: be nice here) this test may fail 
BNEQ 50$ ; Branch if no 
MOVZBL #<laTTYSC_CTRLC>,R10 3; Set “C bit 


50$: 


MOVAB UCBSL_TL_OUTBAND(R5),R2 ; Address of the include mask 
MOVAB UCBSL_TL-BANDQUE(R5),R7 ; Address of the outofband List 


PUSHL ; Save mask address 

BISL (R2),R10 ; Set bits now enabled 

JSB G*COMSFLUSHCTRLS ; Flush them by channel etc 
POPL ; Restore mask address 


BICL (R2),R10 Clear bits still enabled 


: Check if Out of band's were disabled 


MOVZWL 9 #CTPSM_CH_00!CTPSM_CH_D,R9 ; Set up mask and cancel code 
BSBW SEND_068_ASG ; send out of band message 


Update UCB O0B masks 


SUBL #12,SP allocate 3 longwords 
MOVL SP,R11 3 pointer 

BSBW FETCH_OOB_DATA : fetch data from 00B LIST 
> Update UCB with new masks 


MOva AST_INCLUDE(R11),- 
UCBSL cle INCLUDE (RS) 3; set new OOB data 
MOVL RST A ABOR 1),- 


ucBSL of VABORT ERS) 3 and abort 
ADDL #12, SP reset stack 


BRB 1308 


Clean up the ucb after all references have gone 
gn. There is no 
guarantee made about this message really being sent. 
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CANCEL, Cance routine -SEP-1984 RTPAD.SRCICTORIVER.MAR; 1 (26) 
FOen O08 CT_CANCEL, C L 1/0 { 2 138 88: ¢¢: :20 . 3 
A 2645 1208: 
0 93 A A rr MOVZBL #UNBINDSC_USER,RO ; unbind reason code 
82 Cc 8 44 BSBW SEND z send it with common routine 
78 ree BSBw CT_ABORTIRPS ; Flush all_irps from queue 
4 rf: 1308 ; Insert UCB in ACP queue 
OEFO 8F Be 9 i POPR #*M<RG RS ,R6,R7,RI,R1I0,R11> ; Restore registers 
5 9 4 RSB ; Return 
9 4 
9 132 -DISABLE LOCAL _BLOCK 
> $22 
89 183 ip 3; R1 = address of IRP List to run down 
94 $28 3; R2 = channel number 
9 459 ; R4 = PCB 
ssh suet | 
389 rh CANCEL_LIST: 
57 51 00 0B9 464 MOVL R1,R7 3 copy 
56 52 00 st 1e2 308 MOVL R2,R6 ; Make a copy of channel number 
57 67 DO 0B9 46 MOVL (R7),R7 ; Get next IRP 
51 57 D1 OBAT 246 CMPL =e RRA : At list head? 
2F 613 OBAS 2469 BEQL 46=s«-35$ : exit if yes 
OC A? D1 =~OBA6 «2470 CMPL LRPSL_PID(R7) ,PCBSL_PID(RA) ; PID match? 
F1 12 OBAB 2471 BNEQ 0$ ; branch if no 
28 A7 56 B1 OBAD ins CMPW R6, IRP$W_CHAN(R7) 3; channel match? 
EB ie 0BB1 247 BNEQ 308 : branch if no 
41 A? 95 0883 2474 TSTB ae catennnaatanct 3; UNREAD send? 
£6 12 ot 475 BNEQ 0$ : if so, skip post and wait for server 
3 DD 088 oc PUSHL R3 i save 
53 57 DO OBBA 47 MOVL R7,R3 3; save IRP 
04 A7 DO OBBD 2478 MOVL  4(R7),R7 : move back one Link 
53 63 OF 43 4 gag (R3),R3 : yeneus pres queue 
s pos 
50 03 9A OBC4 MOVZBL #POST_COUNT,RO 3 set position 
FF23 30 OBC7 BSBW CHECK~POST_iO : check for error, set posted 
00000000'GF 16 OBCA JSB G*COMSPOST 3; post 1/0 
53 BEDO O0BD 481 POPL R3 3; restore 
C9 11 + OBD rt { BRB 30$ 3; loop 
OBD 483 35$: 
05 OBDS 2484 RSB 
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bat ht CT_HANGUP = Perform hangup functions eT 7 86:92:36 RTPAD.SRCICTORIVER.MAR; 1 
D 4 § -SBTTL CT_HANGUP = Perform hangup functions 
: rt oh -SBTTL CT_ABORTIRPS = Abort irps outstanding 
D 4 : ; CT_HANGUP Perform hangup functions 
p 39 ; CTIABORTIRPS 
: 138 ; Functional description: 
4 494 ; Deliver any CTRL/Y AST's, speci tying hang-up: 
ped 495 ; deliver a hangup message to associated maiibox. 
D6 4 3 Post any irps outstand ng with abort. 
pepe 497 ; Set hangup status in device status. 
D 498 ; The ucb is passed on to the acp if there are no more 
OBD6 2499 ; channels open to it. 
OBD6 2500 ; HANGUP is called by net device errors and hangup operations 
+44 501 ; from the Line on the other end. 
pede 208 ; ABORTIRPS is called on net device cancels and channel deassigns. 
OBD6 2504 ; Inputs: 
0BD6 2505 ; 
0BD6 209 ; RS = address of UCB 
OBD6 2507 ; 
0BD6 208 3 
0BD6 2509 ; Outputs: 
OBD6 2510 ; 
OBD6 2511 ; Message or AST(s) delivered. 
0BD6 216 ; 
0BD6 2513 ;-- 
OBD6 2514 CT_HANGUP: 
54 0090 CS DE O0BD6 2515 MOVA UCBSL_TL_CTRLY(R5),R4 ; Get address of CTRL/Y AST List 
50 54 D0 OB8DB 218 MOVL R4,RO ; Copy List address 
OBDE 2517 10$: 
50 60 oO $3 518 MOVL (RO) ,RO ; Get address of next entry 
08 1 El 2519 BEQL 0$ ; If eqi none 
O2ccC BF 3C OBES 2520 MOVZWL #SS$_HANGUP,- 3 Insert new parameter for AST 
iC Ag OBE? 2521 ACBSC_KAST+4 (RO) : 
F 11 OBE9 25 ¢ BRB 10$ ; 
OBEB 2523 208: 
56 DD OBEB: 2524 PUSHL R6 ; save (Necessary?) 
56 O00A4 C5 00 ED 2525 MOVL UCBSL_TL_CTLPID(R5),.R6 ; Set contros ting PID 
00000000 ' GF 1 re 5 § JSB G*COMSDECATTNASTP : Deliver the AST's 
56 8ED F 5 POPL R6 ; restore 
54 Oe DO FB 2528 MOVL #MSG$_TRMHANGUP ,R4 ; Set mailbox message type 
53 60A D A} 529 MOVL CBSL~AMB(R5) RS ; Get associated mailbox address 
06 1 co 530 BEQL O$ ; If eql none - forget = 
00000000'°GF 16 +4 23) 30s JSB G*EXESSNDEVMSG ; Deliver notification to mailbox 
08 As yh 5 7 BISW #UCBSM_TT_HANGUP,- ; Save hangup status 
68 AS coe : ; UCBSW_BEvSTS(R5) : 


rom Sf 


eee tal tata abdheabralrabedbdiealrabeabeabrabralralvabealealealtabtalvalvalvattaitaltaltaleartaiaitaltaltaltarartateat atta eater) 
DPSS VPS Bs Be BS BE PN 


OO 000009 69 09 09 09 09 0909 SINISE NNO PAA AO OOo 


LS ed 

ou 
frye ce Oe ee 
“ 
sed 


0 
6 
0 
| 
p 
0 
0 
| 
: 
: 


WRI @§ OOD NA UNE WN 9S OD NAME WIN 9 OO NA NEW OOO NAU EWR 0 OD NOUS WN OOo~n 
e@ee «Se Ge Ge Ge Ge e Pete 


POODOOVOVOODOODOOOOOOOBDOOOAOAIOAIOAIOAOOOOOADGOAOAOOOOOOAO 


DIVIMUAIMINn 


without calling driver again. 
abort. 


CT_ABORTIRPS: 


: Release TQE 


DSBINT #IPLS$_TIMER 
MOVL cB L=CT_TQE(RS) ,RO 


CLRL UCBSL_CT_TQE(R5) 


#TOES BS’ - 
TQESL_FR3(RO),7$ 
BsBwW 8=s«508 
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Clean up the outstanding iirp read to network so it completes 
Post all outstanding irps with 


We must be at ipl 7 or above here 


ASSUME IPLS_TIMER EQ 8 


Fix the interlock with the receive iirp so it will be deallocated 
say we did so here. 
means that its gon 
it has never been allocated and given to netdriver. 


when it completes. We must 
NETIRP = 1 and IRP$L_AST = 0 


MOVL UCBSL_CT_RIIRP(R5S) ,RO 
10$ 


RO,10$ 
CLRL _—sXIRP$L_AST(RO) 
MOVL #1, UCBSL_CT_RIIRP(RS) 


if WIIRP is busy writing to net 
MOVL CBSL_CT_WIIRP(RS) ,RO 
L 5$ 


CLRL —IRPSL_AST(RO) 
CLRL ©—- UCBSL~CT_WIIRP(RS) 
BBS #FLGSO_WTIRP_BSY 


UCBSW_CT_FLAGS(RS) ,25$ 


BSBw 50$ 


Now we abort all of the queued irps that we have at this time. 


REMQUE @UCBSL_RTT_IRPFL(RS) ,R3 


MOVZWL #SS$_ABORT, - 
IRPSC_IOST{(R3) 


Synch with timer queue *** 


Clear address 

Assume timer is busy, 
set delete pending bit 

; Branch if om & will delete in timer routi 

; Return to poo 


The condition is 
If NETIRP = 0 


Look at address of receive iirp 
Nope not here 

Dummy, all done? 

Nope so tell receive iirp 
Clobber address here 


Branch if non 
Signal net de 


; Branch if writing to net 
; WIIRP not busy, Return to pool 


Obtain an irp from queue 
Complete with abort status 
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Abort irps outstanding “SEP-1984 RTPAD.SRCICTDRIVER.MAR; 1 (28) | 


CTDRIVER = Command T 
yon O08 CT_ABORTIRP 


3C ASG CSF 238 CLRL IRPSL_IOST2(R3) : 
£6 95 POST_10 3 post 1/0 
50 046 9A OC MOVZBL #POST_COUNT,RO ; set position 
FEBS 0 0OC6 BSBW CHECK-POST_f0 3 check for error, set posted 
00000000 ' GF Hb C6 JSB gponerust ; post 
; an ack for more irps 
E46 1 : 39 BRB 5$ db f i 
50 OOE8 DS OF C7 338 30$: REMQUE 1 * amet debian ; Obtain a CTP from queue 
04 D OC7 59 BVS 40$ ; No more 
i§ 10 0C7 600 BSBB 0$ 3; delete 
£ 11 cr 608 BRB 0$ 3 and back for more irps 
OCB 6 ; Abort STALLED IRP queue 
cre Seos gos: 
U UCBSL_CT_STALLQFL(R5),R5 ; Get stalled IRP 
53 OOFO sf * cre oP REMQUE oyces CT_ST QFL(R5),R3 é . ya I 
: branc one 
38 aS 0 062ClCOKKCsCC 3 O08 MOVZWL #SS$_ABORT, - ; Complete with abort status 
0C86 260 IRP$C_IOST4(R3) : 
3C A3 D4 0C86 610 CLRL IRP$L_10ST2(R3) s 
be 9 2611 POST_IO 3; post 1/0 
50 05 9A OC89 MOVZEL #POST_COUNT,RO 3 set position 
FESE 30 OC8C BSBW CHECK POST_IO 3; check for error, set posted 
00000000 ' GF 16 OC8F JSB G*COMSPOST ; post 1/0 
E46 11 0C95 bie BRB 40$ ; Loop until done 
OC97 S614 
4344 oi? 3; Local routine to return buffer to pool 
00000000 ' GF 16 bc9F 3617 50s: JSB G*EXESDEANONPAGED ; Return to pool 
~ fo Shea . eer 
03 «£0 tH} 36 0 BBS #FLGSV_INWRTFDT,- 
OD OODC C5 CA 621 UCBSW_CT_FLAGS(R5) ,80$ ; if FDT in progress, exit 
50 O0F8 C5 00 OCA4 $e § MOVL UCBSL~CT“WRTCTP(R5S ,RO ; Fetch multiple write buffer 
06 13 OCA9 26 BEQL 80$ : branch if none exists 
EA 10 OQCAB 2624 BSBB 50$ ; Dispose of buffer 
OCAD 625 ASSUME UCBSL_CT_WRTCTP+4 E€Q UCB$L_CT_wWRTCU 
OOF8 cS) = 7C BCAD ° § CLRQ UCBSL_CT_WRTCTPC(RS) ; Clear buffer addresses 
0CB1 2628 : If there are no more channels to this device, then pass it on 
tit} ? 3 3 to the acp for disposal. 
5C AS) 85 OCB1 2631 80S:  TSTw UCBSW_REFC (RS) ; Any channels to device? 
26 = oi12 4 § BNEO 0$ 3; Yes 
01 AA coe 634 BICW #UCBSM_JOB,- : Clear Job Controller notified 
68 AS CB8 2635 UCB$W_BEVSTS(RS) ; 
15 E2 OQOCBA 26 § BBSS #0 DMT,- ; If set, UCB already queued 
1D 38 AS CBC 26 uces -BDEVCHAR(RS) , 100¢ ; 
> Se 4 CBF 26 3 MOVL R5,R ; Set up ucb as the packet 
52° 3405 cCe 6 MOVL  UCBSL_VCB(RS5).R : Get address of VCB 
5 10 A2 00 OCC 640 MOVL VCB$L_AQB(R2),R ; Get address of ACP AQB 
00000000'GF 16 OCCA 2641 JSB G*EXESINSERTIAP ; Insert UCB in ACP queue — 
OA 1 £08 $46 BNEQ 3 If nes not first entry in queue 
51 oc A2 D0 OCD2 264 MOVL § AQBSL_ACPPID(R2),R1 : Get ACP process ID 
00000000'GF 16 OCD6 2644 JSB G*SCHSWAKE 3; Wake the ACP process 
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movvv voc Vv0c0000"000—0 -3 
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- Abort irps outstanding 


45 
+4 stexeereerereeree DEBUG CODE *** 
647 .IF DF DEBUG_LOG 
648 IFNoToPt LOGGING, 85$ 
649 PUSHR #*M<R6,R7,R8> 
650 CLRO R 
651 MOVL # 88 
636 poee TTYS$ LOG 10 
65 OPR #*M<R6,R7,RB> 
O28 85$: 
028 Peretirittiiiiit DEBUG CODE *** 
$28 100$: 
65 ENBINT 
660 RSB 
661 
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oboe if not logging 


sav 

no Length or address 
abort net code 

log to mailbox 

save 


Restore IPL 
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nal Protocol Driver 
- Send WRICTP to NET 


16-SEP=1984 
=SEP=1984 


08:4 
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AX/VMS Macro v04-00 
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-SBTTL CT_WRITE_WRTCTP = Send WRICTP to NET 


synchronize 


Assume success 
Fetch CTP address 
Branch if none 


; Calculate size of buffer 


; Plus two for foundation type 


: Set size 


T 
ear address, count, and offset 
% performance hook 


Send the message 


Restore 
Lower IPL 


; CT_WRITE_WRTCTP = Send message if it exists 
: Inputs: 
; R4 = PCB 
: RS = CT UCB 
> RO-R1 Scratch 
CT_WRITE_WRTCTP: 
DSBINT #CTSK_FIPL 
PUSHR #*M<RZ,R3,R4,R5,R8> 
MOVL #1,R 
MOVL UCBSL_CT_WRTCTP(RS) ,R2 
BEQL 0$ 
SUBL3 -R2,- 
UCBSL_CT_WRTCUR(R5) ,R3 
ADDL2 eR 
OVW R3.CTPSW_DATSIZE(R2) 
: Clean up 
‘ CLRL —sUCBSL_CT_WRTCTP(RS) 
ASSUME UCBSL~CT“WRTCUR+4 EQ UCB 
ASSUME UCBSL~CT"“WRTCUR+6 EQ UCB 
CLRQ  —- UCBSL~CT“WRTCUR(RS) 
incl a@ucb$T_cnt_addr(r5) 
: Write to net 
BSBB ss CT_NET_Q_MSG 
POPR —- #*M<R2,R3,R4,R5,RB> 
ENBINT 
RSB 
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T 
SE 
-SBTTL CT_NETMSGSEND = Send message to net driver 
MOoneGe - Send message to netdriver and exit Je 


NET 
“NET_Q_M - Send message to netdriver without IRP 
NET_WRITE - Write message to net (through NETDRIVER) 


- address beyond message data (maybe this should pe CTP, 
RO is address of one byte past...***) 
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e 
N 
D 4 
4 5 
5 
D : 
D 0 
4 1 
by 518 
D 4 
4 5 
D 5 
gt a8 
4 7 Y CT_NETMSGSENDX: 3; Called from FDOT Level routines 
50 2C A3 DO OD § MOVL IRPSL_ eyed fh RO : The buffer address 
2c AS p18 CLRL IRPSL SVAPTE(R3) ; Clear buffer address 
41 A3 94 OD 4 CLRB RP$B_CT_CANCEL(R3) : No cancel has been sent yet 
51 52 0C AO C3 OD 5 SUBL3 erp pau DATSIZe (RG Q] : Make the Length of the data 
14 A0 51 £4BO 0D26 6 MOVW 1ZE (ROS save 12. the uffer 
04 A3 OD2A 7 SUBW3 nc cet GTYPE-CTP$B_ PRO -MSGTY 
28 AO 1 D 8 et nMSGSITE (ROD > Fill “¥ Size of single message 
40 AS 95 «(0D 9 TSTB rReSB. CT_RESPTYPE(R3) ; See if ryeoenes from SERVER expected 
05 13 OD 0 QL (8 3: E-anch if not 
63 OE 0D34 1 INSQUE 
oosc 05 D36 : om speB$i_RTT_IRPBL(RS) ; Queue irp 
53 OD 539 ,. - + Pom R3 > Save IRP 
52 50 00 0D38 5 MOVL : Set CTP address 
D3E 6 DSBINT ack FIPL : Do this work at driver ipl 
14 10 0D44 7 BSBB T_NET_Q_MSG : Send the message and 
D46 8 ENBINT ; Enable interrupts 
53 B8EDO 0D49 ] POPL R3 ; restore IRP 
40 AS 695 «OD4C 0 TSTB IRP$B_CT_RESPTYPE(R3)  ; See if response from SERVER expected 
06 13 OD4F 1 BEQL 20 ; Branch if not 
00000000'GF 17 0D51 ¢ JMP G*EXESQIORETURN ; Return from the qio 
FBBB 31 D57 743 208: BRW FOT_F INISHIOC_OK ; Finish 1/0 
BRR Shas 
p. ) : 
seh $155 | Ince 
ODA 248 : R2 - “ ff Puce 
fee £39 ; IPL = 2??? Driver ipl, right? (check all callers) 
OD9A 136 CT_NET_Q_MSG: 
Bo aA 754 .if df debug 4 
DSA 2755 movw ctp sy. datsize(R2),R0 3; ** debug 
ODSA £36 addw2 sfeeye abo- _msgtype RO ; ** debug 
DSA 275 cmpw 8(R2) : ** debug check size (should be equal) 
D5A £38 bgequ 10$ ; ** debug br if ok 
7 75 sb G*ini$brk : ** debug 
A 2760 10$: 


L 16 
CTDORIVER = Command Terminal Protocol Driver 16-SEP-1984 02:22:54 VAX/VMS Macro Vv04-00 Page 
vou 008 CT_NETMSGSEND <= Send message to net dri ety 7 68: 4:20 (CRIPAD.SRCICTORIVER.MAR; 1 “ (%) 
DSA 2761 .endc 
37 00c0 cS CE DSA 27 BLBS yeas, CT_RIIRP(RS),Q_ERR ; If LBS, Net has hungup 
9 DSF 27 BBCS #FLGSU_WIIRP_BSY,- 
OD O0DC ¢ D6 164 UCBSW_CT_FLAGS(R5),20$ ; Branch if not busy, set busy flag 
bg £66 3; Queue message until netdriver returns IIRP 
OOEC DS 62 OF ODé65 £08 INSQUE (R2), = 
D6A 8 @UCB$L_CT_NETQBL(RS) ; Queue request on the ucb 
OODE C5 B6 OD6A 2770 INCW UCB$W_CT_GCTPCNT(R5) ; Increment count 
50 O01 OD 4 771 MOVL #1,R0 3; Set status 
0 D ae RSB 3; return 
D7 775 208: 
D7 774 
OD72 2775 CT_NET_WRITE: 
4 ae 3 
D7 il 3 R - CIP 
go? 778 ; fi - CT uc 
+4 AG 4 ; CTP$W_DATSIZE - size of message to write 
53 O0OE0 C5 00 0D7 781 MOVL UCBSL_CT_WIIRP(RS),R3  ; Get address of IIRP 
0D7 782 ASSUME CTPSL-MSGDAT+4 EQ CTPSL_USRBFR 
62 OC $8 7D OD77 278 MOVQ P$L_MSGDAT(R2),(R2) ; Move to first two longwords of structure 
2c Ad. DO OD7B 2784 MOVL R2, IRPS$L_SVAPTE(R3) 3; Set address in IIRP 
32 A314 A2 BO OD7F 2785 MOVW  CTPSW_DATSIZE(R2), - ; Set the size of the buffer 
0D84 2786 IRP$W_BCNT(R3) ; 
0D84 2787 
OD84 788 peeeeeeeeeereeeee DEBUG CODE *** 
0D84 2789 .IF DF DEBUG_LOG : 
0084 2790 IFNOTOPT LOGGING, 15$ : branch if not logging 
0084 2791 PUSHR #*M<R6,R7,R8> : save 
OD84 79 MOVZWL IRP$W_BCNT(R3) ,R6 : length 
0D84 279 MOVL @IRPSC_SVAPTE(R3) ,R7 ; address 
0084 2794 MOVL #1, 3; write to net code 
0D84 2795 BSBW TTY$LOG_I0 ; log to mailbox 
0D84 2796 POPR #°M<R6,R7,RB> 3: save 
0D84 2797 15$: 
0D84 2798 .ENDC 
OD 4 799 peeeeeeereeereeee DEBUG CODE *** 
D84 2800 
38 BB 0D84 $603 PUSHR = #*M<R3,R4,R5> ; Save the magic three 
55 1C AS DO O0D86 B06 MOVL IRP$L_UCB(R3) ,R5 ; The netucb from this packet 
00000000'GF 16 OQOD8A 280 JSB G*EXESALTQUEPKT ; Queue iirp to netdriver 
33 BA 0D9 ope POPR #*M<R3,R4,R5> 3 restore magic three 
50 1 0 D9 5 MOVL #1,R0 3; return success 
0 D9 806 RSB 
D96 2807 Q_ERR: 
36 Bp D9 88 PUSHL R2 3: Save CTP = 
FE7 0 QD9 9 BSBW CT_ABORTIRPS ; Clean up queues (again) 
50 8EDO0 0098 10 POPL R ; restore CIP 
00000000'°GF 16 9E 11 JSB G*EXESDEANONPAGED 3; Get rid of the buffer 
oe se 
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voun 000 CT_NETWRTDONE = Post routine for net wr et Ps §6:92:33 RTPAD.SRCIJCTORIVER.MAR; 1 Mie (3) 
F ; -SBTTL CT_NETWRTDONE = Post routine for net write 
DA rH : CT_NETWRTDONE 
DA i : Called here via JSB from IOPOST because PID field in IIRP is 
+ 9 : negative (i.e. the address of this routine). 
DA § : *** This routine has been coded so that there is no dependance 
DAS : *tt on data in the CTP. This is because NETDRIVER ney soon learn 
DAS 4 4; *** to use the CTP as it's own buffer and the IJIRP will return 
DAS 33 *e* here with SVAPTE as zero... 
ODA H - : Enter here to post writes to net. 
=e 8 8 3 Deallocate the message buffer if any. 
DAS : 0: r5 => write iirp 
BoAg 4 13 ipl = ipl$S_iopost (is CTSK_FIPL ok for mucking with STALL Q??7) 
ODAS 28 : : RO-R5 are scratch, return to IOPOST. 
ODAS 2834 ; 
Spas SBae 
ODAS B39 CT_NETWRTDONE: 
ae 
QDAS 2840 ; Status of the write is not checked. This is 
QODAS 2841 ; because if the Link fails, 
a 3 ; it will be reported via the read queued at CT_NETREADDONE. 
ODAS5 2844 OSBINT #CTSK_FIPL ; Set ipl 
50 2C AS DO OD 2845 MOVL IRP$L_SVAPTE(R5) ,RO ; Get buffer address if it exists 
09 13 OQDAF 2846 BEQL 10$ ; Branch if it doesn't 
2c AS §&% 0DBI 74 CLRL IRP$L_SVAPTE(RS) 3; clear pointer 
OO0000000'GF 16 Tore 528 108 JSB G*COMSDRVDEALMEM 3; Deallocate buffer 
52. 55 00 ODBA 2850 MOVL  RS5,R2 : Move IIRP address 
55 10 A2 rf ODBD Sees MOVL IRP$L_AST(R2) ,R5 ; Get UCB address 
39 «1 pec 826 BEQL 150$ ; If zero, net hungup during write 
a S2¢ : See if there is another message to write 
DC 56 1008: * 
52 00E8 FA r ape 637 eg OYCSSL CT _METOFL (RS) RZ : pater? geenans 
3; Branc no 
OODE C ef ap¢a 28 DECW UCB$SW_CT_QCTPCNT(RS) ; subtract one 
FFAI 0 oc 60 BSBW CT_NET_WRITE 3; Write to net 
01 B1 DD 61 CMPW #CT$K_CTPLOLIM,- 
OODE C5 DD3 B66 UCBSW_CT_QCTPCNT(RS) ; Queue getting low 
20 19 ODD 6 BLSS 140¢ 3; Exit 
09 =o +44 He BRB 120$ ; complete stalled IRP 
DDA 506 : Writing to net has emptied CTP queue, check if there are stalled IRPS... 
BDA 3 110$ ‘ 
OODE C5 Bt DDA $3 : CLRW UCBSW_CT_QCTPCNT(RS) 3; Clear (should be redundant) 
1 A ODD 0 BICB #FLGSA_WIIRP_BSY,- 
0opc C5 DE 71 UCB$W_CT_FLAGS(RS5) ; Clear busy flag 
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Command Terminal Protoco iriver SEP-1984 
CT_NETWRIDONE = Post Pomins for net wr 4" “SEP=1 1984 88: 133 
43 78 1208: 
OF DE REMQUE 1 we Sires ne ag 
1D +3, if BVS 14 
3A DEA MOVZBL #POST_COUNT,RO ; 
0 ODED BSBW  CHECK~POST_fO ; 
16 OQDFO JSB G*COMSPOST : 
11 +4 ag BRB 120$ ; 
ODF 77 1408: 
pore 78 ENBINT F 
05 ODFB 2879 RSB 
ODFC 2880 
ODFC 2881 ; 
ODFC Ht ; Net has hung up while doing write, return WIIRP to pool, 
ODFC 2883; 
ODFC 884 
ODFC 2885 150$: 
DO ODFC 886 MOVL R2,R0 ’ 
16 ODFF 2887 JSB G*EXESDEANONPAGED ; 
11 OE€05 2888 BRB 140$ : 
9E07 2889 


; — 
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Get stalled IRP 
branch if done 


pore on 
chec i error, set posted 


oop ok FA done 
Back to ipl$_iopost 


(UCB is gone?) 


Set address of WIIRP 
Return to pool 
exit 
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4! =a -SBTTL CT_UNSOLIC Unsolicited interrupt handler 
$8 : CTLUNSOLIC, Unsolicted interrupt handler 
895 


Functional description: 
539 
9 
98 
Sy 


This routine handles unsolicted attention messages from the remote 
ACP (REMACP). 


Inputs: 
R3 
R5 
IPL = 0 


address of atter*‘on message (type = DYN$_BUFIO) 
first Longyore in structure points to data. 
address of UCB 


Outputs: ; 
Buffer pointed to by R3 is returned to pool. 
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| 
5 
913 CT_UNSOLIC: ; Unsolicted interrupt handler | 
; 3; *** some checking of message type should take place here, right??? | 
PYSHL R3 ; Save buffer address 
§ DSBINT #CTSK_FIPL 3; Synch 
BSBW STARTNETRCV ; Start up net read 
2 ENBINT ; Enable interrupts 
2 OPL RO 3; Restore buffer address 
2 JSB G*EXESDEANONPAGED 3; Return to pool | 
§ RSB 3 return to REMACP 


53 OD 
O2F7 30 
50 8EDO 
QO0O0000'GF 16 
05 
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-SBTTL CT_NETREADDONE = Post routine for net receive 


we hangup the terminal. 


; inputs: 
r5 => net_iirp 
ipl = ipl$_iopost 
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CT_NETREADDONE : 
DSBINT #CTSK_FIPL 
R5 


R5,R3 
MOVL IRPSL_AST(R3) ,R5 
20$ 


BLBC —IRPS$L_I0ST1(R3),15$ 
MOVL. IRPSL~SVAPTE(R3) ,R2 
SUBL3 #CTPSBPRO_MSGTYPE,~ 


; Consistency check - make sure 


; message here 


MOVZWL CTPSW_MSGSIZE(R1),RO 
ADDL 


CMPW = RO, IRP$W_BCNT(R3) 
BEQL $ 
MINOR_ERROR 
BRB 5$ 


15$: BRW FOUND_ERROR 
20$:  BRW  FOUNDTERROR_2 
5$: 


sekektrrerererere DEBUG CODE *** 


“IF DF DEBUG_LOG 

IFNOTOPT LOGGING, 7$ 

PUSHR #*M<R6,R7,R8> 
MOVZWL IRPSW BCNT(R3) .R6 
MOVL  (R2),R 

#2,R 
BSBW  =s- TTY $LOG J0 
POPR #*M<R6,R7,R8> 


7$: 
-ENDC 


peeeeeeeereeereee DEBUG CODE *** 


CASE CTPSB_PRO_MSGTYPE(R1),- ; 


; CT_NETREADDONE Post net receive 


This is the post routine for receives from the netdriver. 
If the type is not recognised or we can't find the irp, 


We are going to run this code at CT driver ipl. 


RO-R5 are scratch, return to IOPOST. 


; Do this work at driver ipl 
; Save net read IIRP address 
; The iirp address is here 

; The CT ucb? 

; Its gone, we are hung up 

; Error? if so then hang up 
; The buffer address 


; Point to message 
we really only get one 


Length of message : 
Plus 4 for found overhead & — size 
compare to DECnet message Length 
Branch if OK 

increment error count 

continue 


; error on net, must hangup 
; error, hangup already done 


branch if not Logging 


write to net code 
log to mailbox 
save 


case on message type 
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OFT 600 -SBTTL FOUNDATION = Miscellaneous foundation message 
| E77 4 FOUND_BIND: 
e77 3003; 
E77 3004 ; Start the first receive iirp to the netdriver. We make an iirp 
E77 3005 ; and queue it to the netdriver with a read function in it. 
OE77 3006 ; Also, the write IIRP is allocated and the address is saved in the 
OE77 3007 : UCB for future reference. 
OE77 3008 ; 
0E77 4 ; inputs: 
0E77 10 ; R3 - oouage buffer (IRP) 
OE77 3011 ; R5 - CT uc 
0E77 b1¢ ; 
0E77 301 
O28F 30 OE77 3014 BSBW STARTNETRCV ; will we ever get here? 
ODA 31 OE7A 3015 BRW FOUND_EXIT : exit 
OE7D 3016 
0E7D $016 FOUND_UNBIND: 
OE7D 3018 ; 
OE7D 3019 ; Deliver hangup notification 2??? UNBIND 7??? 
OE7D $050 ; 
OE7D 3021 HANGUP: ; Dataset hangup 
FDS6 30 OE7D $058 BSBW CT_HANGUP : Do the hangup stuff 
01D4 = 31 pee? B62 BRwW FOOND_EXIT 
0E83 3025 FOUND_REBIND: : Ignore all these messages for now 
OE83 3026 FOUND_ACCEPT: 
0E83 3027 FOUND_ENTR_MODE 
0E83 3028 FOUND_EXIT_MODE 
0€83 3029 FOUND CONF MODE 
O£83 3030 FOUND-NO MODE: 
0E83 3031 FOUND_MODE: 
0E83 3032 
0E83 3033 BRw FOUND_EXIT 
0E86 3034 


01D1 = 31 
| 
! 
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| OF ° 03 -SBTTL FOUND_CTERM = Foundation CTERM message 
E86 8 FOUND_CTERM: 
BE 6 3039 
| BEE SEE seaat uessge 
| ; Legal message es are: 
| OER 304g . Bic 
O86 043; 1 = init 
OE86 3044; 3 =- read data + 
OE86 3045 ; 4 = out of band 
0E86 Be8 ; 8 - write complete + 
bege Bé : 9 = discard state 
£86 48 ; 11 - characteristics + 
0E86 3049 ; 13 = input count + 
0E86 3050 ; 14 = input state 
OE86 3051 ; . 
0E86 b2¢ ; Those labeled above with ‘'t’’ are eapectee data, i.e. they have an IRP 
0E86 30535 ; waiting in the CT ucb queue. The others are unsolicited data. 
OE86 3054 ; 
0E86 EH 
0E86 3056 CASE CTP$B_MSGTYPE(R1),- 
0E86 3057 <10$,- - . 
0E86 qp28 CTERM_INIT,10$,- s led 
0E86 3059 20$,- :3 
0E86 3060 CTERM_OUTBAND,- > & 
0OE86 3061 10$,10$,10$,- : S4.F 
0E86 $008 20$,- : 8 
| 0E86 306 CTERM_DISCARD,- : 9 
OE86 3064 10$,20$,- : 10,11 
OE86 3065 10$,20$,- 3 Vets 
0E 86 3066 CTERM_IN_STATE,- 7 14 
0E86 3067 VMS_QTO,= ; 15 (VMS specific) 
0E86 3068 VMS_BRDCST- 3; 16 (VMS specific) 
0E86 3069 >- 
0E86 3070 TYPE = B 
QOEAD 3071 ; 
OEAD 3078 3 Unknown 
QOEAD 3073 ; 
OEAD 3074 10s: 
01A7 31 OEAD 075 BRW FOUND_EXIT 
OEBO 3076 
OEBO 3077 ; : : 
OEBO 3078 ; IRP queue is assumed to be in order for reads, characteristics, 
ed 14 ; and input counts. ALL these packets have the FUNC bit set in the 
EB 80 ; queued IRP. The write packets can complete egynchroneusty to all 
OEBO 3081 ; these other types. and they do not have the FUNC bit set. Search 
0EB0 b88 3; for the associated IRP: 
0EB0 8 3 
Bees 084 
EB SH 20$: 
54 0088 CS 7E OEB 0 § MOVAQ UCBSL_RTT_IRPFL(R5),R4 ; Look through the irps for ours 
50 54 00 re +t MOVL R4,RO0 3; head of queue here 
54 64 00 eee $B 30$: MOVL (R4) RS : Link through chain 
50 54 01 OEBB 3090 CMPL «=o R4 RO ; end of irps? ae 
19 13 EBE 091 BEaL «= 40$ : Yes, coulc not find it, ignore it 
OEC 092 ; NB: this error used to abort Link, now it only gets ignored. 
i 
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croniyer - Command Terminal Protocol Driver 1$-3 SEP tbs O¢: oe: :54 VAX/VMS Macro V04-00 
v04é- FOUND _CTERM = Foundation CTERM message -SEP-1984 4:20 RTPAD.SRCICTDRIVER.MAR; 1 
OECO R37 $ gt is because of a o- ge to CANCEL that could potentially 
EC 94 : mes ne. Ha P in the waiting List. 
40 AG 2A Al 91° « OEC 099 tm PSB_MSGTYPE(R1), = 
EC 39 eCTLRESPTYPE(R4) ; Does it match? 
Fi 12 ad! +44 BNEQ 0$ : Branch if no 
pee? 4 : A match has been found 
CA D4 OEC7 13) j CLRL IRPS$L_SVAPTE(R3) ; Buffer not in net iirp now 
2A B0 ECA 1 § MOVW IRP$W_BCNT(R3) ~ 
C AG ECD 310 IRPS$L~10ST2(R45 ; Set size of buffer read from net 
; $6 OF ECF 18 REMQUE (R ; Remove the CT irp from queue 
2c A 2 ob0 QED2 3105 MOVL R2, IRP$L_SVAPTE(R3) ; stick buffer there 
AB6 = 30 ete 196 68: BSBW CT_INTERRUPT 3; and call interrupt routine 
0178 431 OFD9 3108 —— BRW FOUND_EXIT 
OEDC 109 
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CTORIVER - Command Terminal Protocol Driver 16-SEP-1984 02:22:54 VAX/VMS Macro V04-00 Page 71 | 
Fon 008 FOUND_CTERM = Foundation CTERM message aes 7 §¢:92:34 RTPAD.SRCICTDRIVER.MAR; 1 2 (36) 
EDC 3111 CTERM_INIT: 
EDC 11 : 
44! 117 ; Parse INIT message, set up parameters 
OEDC 3115 ASSUME CTP$B_IN_VERSION+1 EQ CTP$B_IN_ECO 
OEDC 139 ASSUME $B_CT_VERSION+1 EQ UCB$B_CT_ECO 
gc Ai BO OEDC 311 CTP$B_IN_VERSION(R1),- 
010C C5 Bede 133 UCB$B_CT_VERSION(R5) ; Save version and ECO 
O7CO 8F 6B SEES 120 PUSHR #*M<R6,R7,R8,R9,R10> 3; Save some work registers 
| 56 37 Al «OSE: «COOEES 3121 MOVAB CTP$B_IN_PARMTYPE(R1),R6; address of first parameter 
57 sh Al 9€E BEEA 1 ¢ VAB CTPSB_MSGTYPE(R1),R7 ; address of start of message 
SA 8 Al 3C OEE 1 MOVZWL CTPSW_MSGSIZE(R1),R10 ; Length of message 
| SA 57 CO per : : DL R7,R10 ; calculate end of message 
56 SA D1 OEFS 3126 10$ CMPL R10,R6 ; Check against end of message 
SF 615 «(OEF8 10 LEQ 90$ : Exit tote if done . 
57 01 A6 QA OEFA 3128 MOVZBL 1(R6),R7 ; Size of parameter 
59 02 DO OEFE 1 OVL #2,R9 ; Default maximum storage area size 
OFO1 3130 CASE = (R46), - 
OFO1 3131 <20$,30$,40$,50$>,- ; case on selector 
OF O01 $136 TYPE=B,LIMIT=A1 ; Limit is really base? 
OFOD 313 MINOR_ERROR ; increment error count 
46 «11 Orit site R $ ; continue (no attempt to continue parsing) 
58 0104 C 4 ore 3136 208: se UCBSW_CT_MAXMSG(R5),R&8 ; Max message that can written to net 
58 0106 c? 7 aie 3136 30$: a UCBSW_CT_MAXREAD(R5),R8 ; Max read buffer server can handle 
58 0108 CS 9E OF21 3140 40S: MOVAB UCBSL_CT_LEGALMSG(R5),R8; Legal messages 
59 046 D0 OF26 3141 MOVL #4,R9 ; Max size to store 
07 11 «OF29 3148 BRB 70$ 
OF2B 314 ; 
4 3145 : parameter 4 is VMS-specific 
OF2B 3146 ASSUME UCBSB_DEVCLASS+1 EQ UCBSB_DEVTYPE 3; assume 12 contiguous bytes 
ose 3147 ASSUME UCBSB_DEVTYPE+1 EQ UCBSW_DEVBUFSIZ 
OF 2B 148 ASSUME UCBS$W_DEVBUFSIZ+2 EQ UCBSL_DEVDEPEND 
OF2B 3149 ASSUME UCBSL_DEVDEPEND+4 EQ UCBS$L_DEVDEPND2 tape 
58 40 AS 9€ OF2B 3150 50$: MOVAB UCBS$B_DEVCLASS(R5),R8 ; address of characteristics, etc. 
59 OC 00 ore 13] MOVL #12,R9 3; length 
56 02 A6 YE OF g 138 70$: MOVAB 2(R6),R6 : bias 
de 1 oF 3 154 CMPL R7,R9 ; check sizes 
10 1B OF 155 BLEQU 75$ : branch if it fits 
oF se 156 MINOR_ERROR : increment error count 
. a? io, Ss oe Of Be hg SUBL3” R9,R7,-(SP) ; calculate remainder 
57 59 D0 OF43 3158 MOVL R9,R7 3; set size 
59 BEDO OF46 3159 POPL Rg 3; remainder 
96 11 OF49 3160 BRB 80$ 3 3 
5 D4 wee 19] 75$ CLRL RY ; Set no remainder 
| 88 86 90 OF4D 188 80$ MOV (R6)+, (RB) + ; set up 
FA 57 F5 OFSO 3164 SOBGTR R7,80$ ; Loop through 
56 6649 9E OF53 3165 MOVAB (R6)CR9I.R6 : add remainder 
9C 11 OF57 3166 BRB 108 : Loop 
OF59 3167 90$: 
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= Command Terminal Protocol Driver 19360-1388 oe: 2:54 VAX/VMS Macro Vv04-00 Page 72 | 
FOUND_CTERM = Foundation CTERM message =SEP-1984 05:14:20 CRIPAD.SRCICTDRIVER.MAR; 1 oad 
F59 316 : 
33 189 ; Should have LEGALMSG filled in now, check for base cterm 
OF 00 €D OF59 3171 CMPZv #0, #15,- | 
0108 ¢ F5C 1% UCBSL fr LEGALMSG(R5) .= | 
OOOO7FFE 8F FSF 317 #°B01T11T1111111110 3 required messages | 
046 13 OF64 3174 BEQL 95$ ; branch if ok 
OF66 3175 MINOR_ERROR 3; Minor protocol error 
07CO 8F BA Bron 176 95$: POPR #*M<R6,R7,RB,RI,R10> ; Restore 
OF GE 178 : Pick up host characteristic SYSPASWORD 
48 AS 00080000 8F CA OF BE 180 BICL gr Tgen SY sews Coat DEVDEPND2(R5) ; Clear bit 
08 00000000 ' GF E1 OF76 3181 BBC #TT2$V_SYSPWD,G*TTYSGL_DEFCHAR2,97$ : skip if clear 
48 AS 00080000 8F C&® OF7E 136 BISL #TT2SM~SYSPWD,UCBSL_DEVDEPND2(R5) ; Set bit 
ant ie | 
OF86 3°85 ; Notify JOB CONTROLER if Logins are enabled. This is a difference 
OF86 3186 ; from the old vax protocol. A unsolicted data message was generated 
OF86 3187 ; in RTPAD to fake a sogee attempt. TSA defines this differently, 
OF86 3188 ; so the login startup is done here. It is a protocol error to 
i 132 ; receive more than one INIT message, but that isn't checked here. 
53 00000000'GF DO OF86 3191 MOVL  G*TTYSGL_JOBCTLMB,R3 =; Get address of Job Controller mailbox 
68 AS BS OF8D 136 TSTW UCB$W_DEVSTS(R3) ; Test high bit *** hack, needs symbol 
03 14 CF9O 319 BGTR ; If clear, continue 
OOEA 31 org 13¢ 1008 BRW FOUND_ERROR ; hangup and exit, logins are disabled 
10 68 AS 00 £0 OF9S 3196 : BB #UCBSV_JOB,UCBSW_DEVSTS(R5),110$ ; Branch if notified already 
9A OF9A 3197 LICR ; ype | 
00000000'GF 16 OF9D 3198 S G*EXESSNDEVMSG ; Deliver notification to mailbox 
4 E9 OFA3 3199 BLBC RO,110$ ;_If lbc failure 
68 AS 01 A8 ar ope 110$ BISW #UCBSM_JOB,UCBS$W_DEVSTS(RS5) ; Set Job Controller notified 
OOAA 31 OFAA 3502 "  BRW FOUND _EXIT ; exit 


| 

| 

S 
MOVZBL #MSG$_TRMUNSOLIC7R4 ; Set mailbox message type 
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c% 
‘ene VER - Command Terminal atten Driver Tense SEP=1 1384 0: $038 /VMS Macro V04-00 Page 3 
v04- FOUND_CTERM = Foundation CTERM message EP-1 RT PAD.SRCJCTDRIVER.MAR; 1 (37) 
FAD 4 
a4 3 : Deliver unsolicited data notification 
4 0? CTERM_ IN’ STATE: 3; Unsolicited data 
00 £1 OFAD 09 BBC #CTP$V_IS_NONZERO,- 
14 ¢8 Al FAF 10 CTP$B_TS FLAGS(RIS, 10$ ; Branch if not a zero to non-zero change 
C AS if FB 11 TSTwW UCBSW_REF 3 Any references to device? 
OF 1 OFB \¢ BEQL 10$ : If eql no - notify Job Controller 
53 60 AS 00 OFB7 1 MOVL UCBSL_AMB(R5) ,R3 ; Get address of anner tated mailbox 
09 13 OFBB 3214 BEQL 10$ : If eql none - forget it 
54 01 QA OFBD $12 MOVZBL #MSG$_TRMUNSOLIC,R4 ; Set mailbox message type 
00000000 ' GF bFcO 3518 io JSB G*EXESSNDEVMSG : Deliver notification to mailbox 
008 31 OFC6 3218 — BRW FOUND_EXIT 
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19-SEP-1984 03: 
Foundation CTERM message “SEP=1984 05: 
° ; Change output discard state, user has 
CTERM_DISCARD: 
5 BISW  #FLGSM ef TRLO - 
$ UCB$W_CT_FLAGS(RS) 
BBS #CTP$0_DS_DISCARD 
8 CTP$B BS FLAGS (R15, 10 
BICW aE LOS CTRLO,- 
0 UCBS$ 4, tf FLAGS(RS) 
1 BISW #FLGSA_CANCTRLO 
é ‘ns UCB$W_CT “PLAGS (RS) 
4 "  BRW FOUND_EXIT 


2:54 VAX/VMS Macro V04-00 
4:20 CRIPAD.SRCICTDRIVER.MAR; 1 
typed “0. 


; Assume Set “0 

; Branch if output being suppressed 
; Clear “0 

; Set cancel *O pending 

; exit 
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= Command Terminal Protocol Driver 16-SEP-1984 02:22:54 VAX/VMS Macro V04-00 Pp 75 CTC 
FOUND_CTERM = Foundation CTERM message eats 7 §8:42:36 ERIPAD. SRC CTDRIVER.MAR; 1 ae (39) Syn 
FED ‘ CTERM_OUTBAND: 44 
53 20 a1 9A OFE MOVZBL CTP$B_OB_CHAR(R1) ,R3 ; Deliver the asts (char) FEI 
18 gprs (3. 23 1 FES § BBC R3 vee nT OUTBAND (RS), 10$ ; branch if no OOB in mask Fil 
4 9¢ ¢ E OFEA 3240 MOVAB UCBSL_TL~BANDQUE(RS),R4’; List address FLO 
042 fF BB FEF 41 PUSHR #*M<RT, RED ; save CTP (and R67?) FLC 
6 O0OA4 CS D OFF 3 4g MOVL UCBSL_fL_CTLPID(RS),R6 : Set controlling PID FLC 
00000000'GF 16 OFF 4 JSB G*COMSDECCTRLASTP : Deliver the asts FLO 
0042 BF BA OFF 44 POPR #*M<R1,RO6> 3; restore CTP, R6 FLO 
1005 35¢a 1° Ft 
138 ‘3 : Check for *C or “Y 4a 
C Al 9A 100 49 ° MOVZBL CTP$B_OB_CHAR(R1),R3 =; Deliver the asts (char) FLC 
54 0096 C5 DE 1006 3250  -—«s- MOVAL.-“~UCBSL-TL“CTRLC(RSS.R4 ©: Get address of CTRL/C AST List FLC 
03 53 91 + «=1008 51 CMPB R3,#TTY$C_CTRLC ie FE FLC 
13, (12 1006 3g BNEQ 208 : Branch if not “*C FLC 
0080 8F AB 101 5 BISW #FLGSM_CTRLC,- FLC 
OODC C5 1014 54 UCB$W_CT_FLAGS(RS) : Set control C delivered FOL 
05 €0 1017 3255 BBS #FLGS$U_VAXTOVAX,=- FOU 
17 O0DC C5 + 3b $28 UCBSW_CT_FLAGS(R5),30$ ; If VAX to VAX, skip next check fo 
101D 3258 > connected to TOPS or RSX, must do implicit “C to “Y mapping here. FOU 
101D 3259 ; * the following check is probably wrong when a process FOL 
apie so ; * has spawned and has a “C enabled... io 
64 DS 101D 6¢ TSTL = (R4) ; is there a *C to deliver? FOL 
07 +13 #101F 326 BEQL 5$ 3 turn “*C into “Y FOL 
7.6 6S 19h 308 BRB o$ ; deliver “C ro 
19 53 91 1983 66 20S: CMPB R3,#TTYSC_CTRLY 2 °F 9 FOL 
21. 12 «+1026 3267 BNEQ 40$ : Branch if not *Y FOL 
0080 8F AA 1028 68 25$ BICW #FLGSM_CTRLC,- FUR 
OODC C5 102C 69 UCB$W_CT_FLAGS(R5) ; Set NOT control C delivered GE1 
54 0090 C5 DE + ; 4 30s MOVAL UCBSL_TL_CTRLY(R5),R4 ; Get address of CTRL/Y AST List oy 
56 DD 1034 rg "  PUSHL : save (Necessary?) IN] 
56 OOA4 C5 DO 1036 7 MOVL UCBSL_TL_CTLPID(RS5),R6 ; Set controit ing PID IN] 
00000000 ' GF 16 1038 74 JSB G*COMSDECATTNASTP 3; Deliver the AST's | IN] 
56 8EDO 13] o POPL R6 3 restore ic 
Hb AA : If OUT-OF-BAND DISCARD IS TRUE, SERVER IS DISCARD OUTPUT RIGHT NOW. *** ia 
04 a8 1B44 79 ° BISW § #FLGSM_CANCTRLO,- 10! 
Oopc C5 1046 80 a UCB$W_CT_FLAGS(RS5) ; Set cancel “0 pending 104 
0008 31 1049 Be "  BRW FOUND_EXIT 10! 
104C 328 ia 
10! 
10! 
10! 
a: 
10! 
10! 
10! 
10! 

| 
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CTORIVER = Command Terminal Protocol Driver 16-SEP- 1384 be: $436 754 \VAX/VMS Macro Vv04-00 Page 76 
- al - Foundation message - . : 
v04 FOUND_CTERM = F dati CTERM -SEP-1984 4:20 (CRTIPAD.SRCICTORIVER.MAR; 1 (40) 
104C 5 VMS_Q10: 
EFB1® 30 104C § BSBW ct wn SQ10_MSG ; VMS qio seasees 
2D E9 104F BLBC RO; FOUND_ERROR ; hangup if er 
| 11 1084 § BRB FOUND_EXIT i otherwise, fall through to found_exit 
34 30 VMS _BRDCST: 
EFAS" 30 1988 3 BSBwW CT_VMS_BRDCST : VMS upline broadcast for jpotttos 
1057 9 ; fall through to found_exi 
1057 94 FOUND_EXIT: 
1057 95 : 
Wee 98 : ; 8(SP) RTNADR 
1057 9 : 4(SP) SAVED IPL (Ciopost) 
| Wee 38 : O(SP) RS Ciirp address) 
53 BEDO 1057 00 POPL R3 ; Obtain the net iirp address 
7. THA DO 105A 01 MOVL IRP$L_UCB(R3) ,R5 ; Set the net ucb address up 
50 2C A b9 1056 30¢ MOVL 1RPSL- “SVAPTE(R3) ,RO ; dump the buffer 
09 13 106 $ BEQL 0$ :; if there is one to dump 
00000000'GF 16 1064 04 JSB G*COMSDRVDEALMEM ; Deallocate buffer 
A D4 106A 3305 CLRL IRPSL_SVAPTE(R3) : forget it 
00000000'GF 80 1398 306 50$: MOVW G*10CS$GW_MAXBUF , 3; setup tor another read from net 
A 107 307 IRP$W_BCAT(R3) 3 with requested buffer size 
00000000'GF 16 4 4 JSB G*EXESALTQUEPKT 3 queue to net driver 
1078 3310 FOUND_EXIT 2: 
1078 3) ENGI NT ; Restore the ipl 
0 lore 8313 
107F si¢ 3 If we had on io error in the packet, then hangup the terminal 
107F 15 3 deallocate the packet and any buffer and exit 
107F 418 ; If there is no CT ucb left anymore, just deallocate the packet 
107F 3317 ; and buffer and get out. 
107F 3318 ; 
107F 344 
107F 3320 FOUND_ERROR: 
107F $5) : 
FB54 §=30 14 3 § BSBW CT_HANGUP ; Bad error - hangup the terminal 
10 ; 4 FOUND_ERROR_2: 
55 8ED0 H+: + POPL R5 ; Restore Read IIRP 
1085 g Deallocate IIRP and buffer 
50 2C AS 09 1088 0 : MOVL IRPSL_SVAPTE(R5) ,RO ; Suffer on this ert 
06 13 1089 1 BEQL 1 ; nope 
senee? wed: 16 1088 § JSB CRE SDEANONPAGED ; back to the p 
5 5 pO 1091 33335 10$ MOVL ; Now for the iirp itself 
00000000'GF 16 1094 4 JSB G2€ KE SDEANONPAGED ; back to the poo 
DF 11 109A 6 BRB FOUND_EXIT_2 ; Now we are done here 
109C 3337 


B 2 | 
CTDRIVER = Command Terminal Protocol Driver 16-SEP-1984 02:22:54 VAX/VMS Macro v04-00 Page 77 | 
VOen O08 CT_SEND_UNREAD = Cancel irps gr SE 18 4 §¢:42:36 RTPAD.SRCICTDRIVER.MAR; 1 . (41) | 
109C 3339 .SBTTL CT_SEND_UNREAD = Cancel irps | 
1986 40 ; ra =m : 
133¢ 41 ; CT _SEND_UNREAD 
109C ts ; 
935 ti : Cancel irps by sending a message to the terminai system. 
109C 3345 : inputs: 
109C¢ re, 3 r2 => channel | 
109C oy 2 r4 => ps for process | 
45 48 ; r5 => CT ucb 
109C 3349 ; 
109C 50 | 
109C 3351 CT_SEND_UNREAD: | 
109C 26 
OO7C 8F BB 109C 335 PUSHR #*M<R2,R3,R4,R5,RO> 
56 0088 CS 7E 10A0 $20 MOVAQ UCBSL_RTT_IRPFL(R5),R6 ; Point to the irp queue 
56 DD 10A5 55 PUSHL R6 ; save its address 
10A7 3356 ; 
10A7 $2h 3 20(SP) R6 
10A7 58 ; 16 R5 
10A7 3359 ; 12 R4 
10A7 3360 ; 8 R3 
10A7 3361 ; 4 R2 (channel) 
10A7 366 5 0 IRP LIST HEAD 
10A7 6 
56 66 DO 10A7 3364 10S: MOVL (R6) ,R6 ; Point to next irp 
6E 56 D1 10AA 3365 CMPL —R6, (SP) : End of queue? 
35 13 10AD 3366 BEQL 20 ; Yes 
28 A6 «62046 AE «0B1 SOCOIOAF «3.367 CMPW 4(SP), IRP$W_CHAN(R6) ; Is this the correct channel? 
Fl 12 1084 3368 BNEQ 10$ ; Nope, try next? 
OC A6 460 AGS D1 «(1086 3369 CMPL PCBSL_PID(R4), - : Do the pids match? 
1088 3370 IRPSL~PID(R6) : | 
EA 12 10BB 3371 BNEQ 10$ ; Nope, try next 
03 91 10BD 3358 CMPB #CTPSC_MT_READ_DATA,- 
40 Ab 10BF 337 IRP$SB_CT_RESPTYPE(R6) ; Is it a read request? 
ES 12 10C1 3374 BNEQ ; If no, no way to cancel 
41 A6 95 10€3 3375 TSTB IRP$B_CT_CANCEL (R6) ; Did we send a cancel? 
ao ice $355 BNEQ 20$ ; We are done. just return 
51 2C pO 10C8 3378 MOVL #CTPS$C_UR_LEN,R1 ; Get a message buffer for cancel 
F8B1 30 10CB 3379 BSBW ALLOC_CTP 3; allocate a buffer 
OF 50 «OED ISce tt BLBC RO,158 ; If error, exit 
10D1 : Set up unread message 
10D1 388 3 . 
1001 384 ASSUME CTPSB_UR_FLAGS EQ CTPSB_MSGTYPE+1 
05 98 1001 85 MOVZBW #CTPS$C_MT_UNREAD,- 
2A A2 1003 3386 CTP$B_ASGTYPE (R25 : 
06 BO 1005 3387 MOVW  #CTPST_UR_MSGLEN,- ; | 
14 A2 1007 88 CTP$W_DATSIZE (R25 3; Set size of message 
02 BO 1009 3389 MOVW  #CTPST_UR PROLEN,- 
28 A 10DB 90 CTP$W_MSGSIZE (R25 ; size of protocol with message 
FC7A 30 1908 4 BSBW CT_NET_Q_MSG ; Send the message | 
41 A6 O01 90 1De4 $8 15$: MOVB #1, IRPSB_CT_CANCEL(R6) ; Mark for we sent it 
51 8EDO 10€4 95 208: POPL R1 : Discard stack longword to rl 
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CTDRIVER - Command Terminal # tocol Driver 16-SEP-1984 02:22:54 VAX/VMS Macro v04-00 Page 78 

vou O08 CT_SEND_UNREAD = Cancel irps ore EE 1382 88:92:36 ERIPAD. SRC CTDRIVER.MAR; 1 ‘ (41). 

007C 8F Be 4 9 POPR #*M<R2,R3,R4,R5,R6> ; Restore regs and return | 
we 


dD 2 
CTDRIVER - Command Terminal ereteces Driver 16-SEP-1984 be: 2:54 VAX/VMS Ma 
V04 SEND_UNBIND = send unbind foundation mes 5-SEP-1984 : 


ro V04-00 Page 79. ef 
4:20 RTPAD.SRCICTDRIVER.MAR; 1 (42) | 


1Oet r 9 -SBTTL SEND_UNBIND = send unbind foundation message | 
10EC 34 ¢ : 
10EC 3403 ; Input: 
1OEC 3404 ; RO = unbind reason code. 
10EC 3405 ; 
10EC 406 SEND_UNBIND: 
10EC 340 
50 DD 10EC 3408 PUSHL k0O 3; save 
29 «63C «(10EE 63409 MOVZWL #CTPSB_PRO_FILL+2,R1 ; message length 
F88B 30 10F1 3410 BSBW = ALLOC_CTP ; allocate packet 
OF 50 £2 10F4 3411 BLBC RO,2 3; exit if failure 
0g 0 10F7 41g MOVB § #PRO$C_UNBIND 
26 A 10F9 341 CTP$B_PRO_MSGTYPE(R2) =; set unbind type | 
27 A2 of BO 10FB 3414 MOVW (SP), CTPS$B_PRO L(R2) ; set reason for unbind 
03 BO 10FF 3415 MOVW  #<CTP$B_PRO_FICL+2-CTP$B_PRO_MSGTYPE>,- 
14 A2 1101 3416 CTPS$W_DATSIZE(R2) 3 set transfer size | 
FCS5S4 «= 330-«:1103 «3417 BSBW CT_NET_Q_MSG ; Queue message 
1106 3418 20$: 
8E DS 1106 3419 TSTL (SP)+ ; get rid of reason code | 
05 1108 3420 RSB 3; return 
1109 3421 | 


E 2 
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CTDRIVER = Command Terminal 4 02: 22: :54 VAX/VMS Macro V04-00 Page 89 CTD 
v04-000 STARTNETRCV = initial net startup code -SEP=1984 4:20 (CRIPAD.SRCICTDRIVER.MAR; 1 (43). Tab 
1} 2 Pr ; -SBTTL STARTNETRCV = initial net startup code 
1109 5425 STARTNETRCV: 
1109 3059 
1199 4 : : INIT UCB: (THIS SHOULDN'T BE DONE HERE...) 272 | 
O0E8 cS) oS 1199 430 ° TSTL UCBSL_CT_NETQFL(RS) : Been here before? 
3D. —Ss 12 11Re rt BNEQ 10$ ; Branch if yes 
OOE8 CS «9E «110F «34 § MOVAB UCBSL_CT_NETQFL(R5),- =; Init queue | 
OOE8 C5 1113 3434 UCBSL_CT_NETQFL(R5) 
O0E8 CS) 9E «1116 «3435 MOVAB UCBSL-CT“NETQFL(R5) ,- | 
OOEC C5 Vie rh UCBSL_CT_NETQBL(R5) 
OOFO CS) «= 9E «111D «3438 MOVAB UCBSL_CT_STALLOFL(R5),.- ; Init queue | 
OOFO C5 1184 439 CBSL_CT_STALLQFL(R5) 
OOFO CS) «= 9E «61124 «3440 MOVAB UCBSL_CT_STALLQFL(R5),- 
OOF4 C5 1158 ret UCBSL_CT ~STALLOBL (RS) | 
112B 3208 : Initialize some parameters that should be reset by INIT message 
1168 erie ; from server. 
0106 C5 0200 BF BO 1128 3d fovw 512, ucese CT_MAXREAD(R5) ; Maximum read buffer in server 
0104 C5 1136 3448 UCBSW~CT_MAXMSG(RS) ; Maximum net message | 
011C CS) «9E «61139 «3450 movab ucb$l_cnt_fre(r5),- 3; 42% performance hook 
0120 ¢5 113D 3451 ucb$t_cnt_addr(r5) : | 
0118 C5) D4 1140 $028 clrl ucb$l"cnt_ovr(r5) 3; 22% performance hook 
011¢ CS) D4 1144) «5345 cirl ucb$l"cnt_fre(r5) 3 22% performance hook 
0114 C5 «D4 «611468 «3454 clrl ucb$l—cnt_tqe(r5) ; 42% performance hook 
He Sag toe 
116 ri : Allocate TQE | 
O0E4 CS D4 1136 rbd CLRL UCBSL_CT_TQE(R5) ; Clear address | 
51 30 9A 1150 3461 MOVZBL #TQESC_LENGTH,R1 ; Set Length 
Q00000000'GF 16 1153 t66 JSB G*E XE SALONONPAGED ; Allocate the buffer . | 
2 E9 1159 346 BLBC RO” 15$ ; Branch if error, forget timer 
OA A2 OF 90 115C¢ 464 MOVB #DYNSC TQE, - 
1160 3465 TOE$B TYPE(R2) ; Set block type | 
08 A2_ §1 0 1160 £96 MOVW R1,TQES$W_SIZE(R2) ; Set 
10 A2 C 1164 346 CLRQ TQESL_FR3(R2) : tlear flags and ucb address 
F18B CF 9E 1167 3468 MOVAB W*TQE_WAKEUP,- | 
OC A2 1168 3469 TOESL-FPC (R25 ; Set subroutine address | 
01 90 116D 3470 MOVB #TQES$T_SSSNGL,- 
0B A2 116F 3471 TOES$B_ROTYPE(R2) ; Set request type as system subroutine | 
001E8480 8F DO 1171 ih} MOVL #CTSK_TQE_DELTA,- 
20 A2 1177 347 ib 3 DELTACRE) 3; Set Delta 
24 as D4 1179 3474 CLRL TQE$Q” DELTA+4(R2) ; Set Delta 
00E4 cS) 5 DO 117C 3475 MOVL R2,UCB$L_CT_TQE(RS5) ; Set Timer Queue Entry address 
He ae 
1181 3478 > Allocate READ IIRP | 
1181 3479 : 


CARR ANER 
v04-00 


00co ¢5 


SF § 
ooco cS. 5 
OC A2 =FC89 CF 


20 A221 


WOPrPOrorrv~w 
COMWRIW™WWTvOoD 


OOEO C5 
29 
0055 


4 
QOEO ¢5—s 2 
OC A2 FeD4 CF 


0009 cS) 0 
0 
2 
C 


7 
5 
0 
oOpCc C5 
F 
5 


0040 8 
ooDC C 


OA 
01 50 


F9E7 


30 
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; Is the jirp already out? 

: Yes, then ignore it 

; Make an iirp for use 

; No good, clean it all u 

; Save the address of the. iirp 
; Stuff the post address 


; Set the function 


IRP 
Set the col ucb address up 


; setup for another read from net 
; with requested buffer size 


; Set read bit 
; queue to net driver 


: Already done? 
- hake an iirp for use 
: No good, clean it all up 


Save the address of the iirp 
Stuff the post address 


; yup, set flag 


; Defaults to buffering 


hangup if error 


the terminal to run it down 
is done when we cannot obtain 
IPL can be anything. 


F 2 

and Terminal Protocol Driver 16-SEP-1984 06:92:38 
NETRCV = initial net startup code -SEP-1984 05:14:20 
1181 3480 TSTL BSL_CT_RIIRP(RS) 

11 3 481 BNEQ Hi piste 

11 4 j BSBW CT_MAKELIRP 

118A 34 BLBC Rg. 30 

118D 3484 MOVL R2, UCBSL_CT RIIRPCRS) 

11 485 MOVAB W*CT_NETREADDONE, 

119 4 $ IRPSC_PID( 

119 48 MOVW #10$_READLB 

119¢ 48 IRPS$Q_FUN bea DS 

119C 3490 PUSHR #*M<R3,R4,R5> 3 Sav 
119E 3491 MOVL R2,R3 : Set “a3 a 
11A1 49¢ MOVL IRPS$L_UCB(R3),R5 ; 

11A5 349 CLRL IRPSL~SVAPTE(R3) : forget it 
11A8 3494 MOVW G*10C$GW_MAXBUF ,- : 

11AE 3495 IRP$W_BCRT(R3) : 

11B0 3496 BISW #IRPSA_FUNC,- 

11B2 3497 IRP$W_STS(RS) 

11B4 3498 JSB GTENEEAL TGUEPRT ; 

Bt $000 POPR #*M<R3,R4,R5> ; Restore 
Bt 45 320! ; Allocate the write IIRP 

11BC 3303 TSTL UCBSL_CT_WIIRP(RS) 

11C0 3504 BNEQ o$ 

ice 505 BSBW CT_MAKELIRP 

11C 506 BLBC Rg. 30 

11C8 3507 OVL UCBSL_CT WL IRPCRS) 

11CD 3508 MOVAB Oey NETWRT 

1103 4292 IRPSC_PID(R2) 

4 etermine i we're ta ing to eee 

1103 211 D i f Lki RTPAD 
11D3 3218 CMPW #7,,UCBSW_RTT_SYSTYPE(RS) ; VMS? 
11D8 a218 BNEQ 3 nope 
11DA 3515 BISW #FLGSM_VAXTOVAX,- 
11DC e218 UCB$W_CT _FLAGS(R5) 

11DF 3517 17$: 

11DF 3518 BISW #FLGSM_BUFFER 

E53 319 UCBSW_CT “FLAGS (RS) 

3 325! ; Send the INIT message 

1166 35 : 8SBB  =s- SEND_INIT : 

11E8 3524 BLBC RO, 30$ 3 

11EB 3525 208: 

Hy : § RSB ; Return 
11EC 3528 ; We are in deep trouble. 9. Moree 

11EC 3529; and return failure in r0. is 

tee : , ; memory for an iirp or any thing else. 
11EC 35 § 3; inputs: 

Ee : ? : r5 => CT ucb 

11EC 3535 Sos: 

11EC 3536 BSBW CT_HANGUP 


; Post irps and attn asts 
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Send init message *** right place? 
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- Command Terminal 
STARTNETRCV initial net startup code 7:14:20 RTPAD.SRCICTDRIVER.MAR; 1 
| 50 DS 11EF 22 7 CLRL RO ; return failure 
0S 11F1 35 § RSB 
11F 5 
11F2 3540 SEND_INIT: 
51 49 8F QA 11Fe 3541 MOVZBL #C_INIT_MSGLEN+CTPS$W ate Fo : henge of message 
F786 «630 «(11F6 236 BSBW RL CTP ‘locate write packet 
1D 50 €9 11F9 354 BLBC RO,10$ : ate on error 
3g BB IFC 544 PUSHR #*M<R2 R3,R4,R5> 3; Save 
23 «BO 11FE 3545 #C_INIT_M ASGLEN®2 .- | 
14 A2 120 en8 CTPSu DATSIZE (R25 3 size for net write (+2 for foundation) 
EE91 CF 21 28 120 54 MOVC3) #C_INIT_MSGLEN, INIT_MSGBLK 
28 A2 120 348 cre Sy. ns SIZE (R2) ; "Neos Block 
C BA 1209 54 POPR #*M<R »R4,R5> 3; restore 
00000000'GF B80 1208 3550 MOV eToesey MAXBUF ,- 

39 A2 1211 3551 T_BOFSIZ(R2) : set maxbuf 
1213 $59¢ ‘Sas 
121 55 3; write to net 
1213 3554 

FB44 «30 «1213-3555 BSBW  CT_NET_Q_MSG ; write to net 

50 01 DO 1216 3556 MOVL #1,R0 
1219 3557 10$: 
05 1219 3558 RSB 3; returrn 

121A 3559 
121A 3560 
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! 7% 266 ~SBTTL CT_MAKEIIRP = Manufacture an internal irp 
121A 3564 ; CT_MAKELIRP 
121A 3565 ; 
121A 208 ; Make an internal IRP for sending to the netdriver. 
121A 3567 ; If we can't get the space, return failure. 
121A 3568 ; 
121A 29? ; inputs: 
121A 3570 ; r3 -> CT ir 
121A 3571 ; r5 => CT uc 
121A 276 3 
isiA 5735 ; outputs: 
121A 3574 ; r0 = success or fail 
121A 3575 ; 
121A 3576 
} 1° oof CT_MAKELIRP: 
51 C4 BF 9A 121A 3579 MOVZBL #IRPSC_LENGTH,R1 ; Obtain a buffer of correct size 
00000000'GF 16 121E $200 JSB 6 EXESALONONPAGED 3 from dynamic memory 
3A 50 €9 1224 3581 BLBC RO,10$ ; No memory left, so return error 
OA A2 OA 90 1227 $266 MOVB #DYNSC_IRP, - ; Set the type and size fields 
122B 358 IRP$B E(R2) 3 
08 A2 51 BO 1228 3584 MOVW R1,IRP$W_SIZE(R2) ; 
OC A2 D4 is¢ 585 CLRL IRP$L_PIB(R2) 3; No pid here 
10 A2 55 DO 1232 286 MOVL R5,IRPSL_AST(R2) ; Save the CT ucb field 
0084 C5) «D0 1236 «3587 MOVL  UCBSL_RTT_NETWIND(RS),- : Set up the window 
18 A2 123A 3588 IRPS$L_WIND(R2) : 
0080 ¢5) =6DO 6123C «(3589 MOVL UCBSL_RTT_NETUCB(R5),- ; and the ucb for the net 
1€ A2 1240 3590 IRP$L-UCBTR2) ; 
20 BO 1242 3591 MOVW #10$ QRITELBLK,- ; the function 
20 A2 1244 $238 IRP$Q_FUNC(R2) : 
23 A2 04 90 1246 359 MOVB #4, 1RP$B_PRI(R2) ; or tertey of this in queue 
01 BO 124A 3594 MOVW #IRP$M_BOFIO,- : Its a buffered io function 
2 A2 Agee 595 IRPSW_STS(R25 3 and assume a write os 
0 A2 B44 124€ 3596 CLRW IRP$W_BOFF (R2) 3 no quota to return for iirp 
38 A2 7C 1251 3597 CLRQ IRP$L_10ST1(R2) 3; no status yet 
1254 3598 ASSUME IRPSL-OBCNT - 
1254 3599 EQ - 
1254 3600 IRPSL_ABCNT+4 
40 A2 7C 1254 3601 CLRQ IRPSL_ABCNT(R2) ; Some more byte counts 
50 AS D0 1257 ote MOVL IRP$L_SEQNUM(R3) ,- : Grab a quick sequence number 
50 A2 125A 360 IRP$L_SEQNUM(R2) ; 
58 AS DO 125C 3604 MOVL IRP$L_ARB(R3) ,- ; Access rights block, incase needed 
58 A2 162f 605 IRP$L_ARB(R2) 3 
05 1261 3606 10$: RSB 
1262 3607 
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-IF OF peeus LOG : 
ssbttl TTY LOG_IO = log data to mailbox 
: RS = RT UC 
; R6 = message Length 
; R7 = message address 
; RB = message type 
of | 
tty$log_io: 
BBS § #1,G*SGNSGL_VMSD4,5$ ; branch if all terminals Logging | 
BBS #tt2$v_disconnect,- 
» ucb$l_devdepnd2(Rr5) ,5$ ; or this terminal set for logging | 
rs 
5$: 
pushr #*m<RO,r1,r2,r3,r4,r5> | 
mov $.sgrsal_vas8 RO 
beql 10 ; exit if 0 
cmpb #dyn$c_ucb,ucbSb_type (RO) 
bneq 100$ 3; exit if not ucb 
addi3 = #6+12,R6,R1 3; message Length + non-paged header 
sb G*exe$alononpaged ; get buffer 
Lbc ro, 3; exit if no memory 
MOVB #DYNSC_UNUSED 2, - 
TQESB_TYPE(R2) 


Set block type 


MOVW R1, TOESW_SIZE(R2) ; Set size 
pushl R2 save address 
movab 12(R2),R2 Skip non-paged header 


save 
movw r8,(r2)+ moseoge type 
movw tt yaaa deceaade unit 


movw r6,( message Length 
beql 1 branch if zero 
moveS r6,(r7),(r2) data 

> send message 

10s: 
addl3 #6, R6,R3 ; length 
popl ; address of message 
mov l G“sgn$gl_vms8,R5 ; mailbox uc 
jsb G*exeSwrtmai lbox 3 write to mailbox 

99$: gopt r0 3; restore address 
js G*exe$deanonpaged 


100$: popr #*m<RO,ri.r2.r3,r4.r5> 
rs 
-endc 


ka kk kk kk kk kk kt tk dd dt 
RIPIPIPINININININPININYNININININPININININININININIPYNPINININININININININPYIPYPONo No Pongnononopopnononofponoporofnorny 
DPDRDAED ADA A ADA AD DD DO DD OS DS OS OS OS DDD AAA AAA AAA A AAA AAAAAAO 


| 
| 


DDD DED DDD DED DO DD PD OD DS OD DS DS OS DS OS OS OS DDD DAPI AAA AA AAA AA AOano 
PDD Grr & a BS EAI WINN AIAN AI PPONINPONNUNPINYNY 2 OO OO OO OO 
RO ODNOU EWN OOO AUS WIN OOD NAME WN 0 OO NAU EWN O OONOUS WN O0 
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Foun O08 CT END. End’ of driver mr grote 1882 OS:fei36 Atop seedespMyuesemar:1 29° (82, 
} 6 66% -SBTTL CT_END, End of driver 
126 006 3 
! ? ees ; Label that marks the end of the driver 
1 669 ° 
00000 § rif -PSECT $$$116_DRIVER,LONG 
0000 3671 CT_END: 
0000 3672 . END 


es 
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CTDRIVER C d Terminal P L Dri 16-SEP-1984 2:54 VAX/VMS M 04-00 90 CTD 
Symbol table “SEP=1984 03:14:20 CRTIPAD.SRCICTDRIVER.MAR;1 (46) | v04 
TTSM_PAGE = FFO0O 0 UCBSL_TL_CTLPID = OAs 
TTSM-SCOPE = 9901 UCBSL-TL-CTRLC = 94 | 
TTS$M_SCRIPT = 90 9 4 UCBSL_TL-CTRLY z 30 
TTSM-TTSYNC = 99 UCBS$L-TL-OUTBAND = 0000009 | 
TTSM WRAP = 00000 0 UCBSL-VCB = 09 34 
TT$_ONK = 9909 UCBSM_JOB = 00000001 
TT2SM_AUT = 999 08 UCBSM-1T_HANGUP = 000 0008 
TT2$M_DCL_MAILBX = 0000 UCBSM_VACID = 3008 of 
TTOSM_SYS = 0008000 UCB$Q-TL_BRKTHRU = 000000A 
TTO$SV_SYSPWD = 0000001 UCB$T-CT-DEBUG_FILL z 99000110 | 
TTY$SC“CTRLC = 0000000 UCB$V~JOB = 00000000 | 
TTYSC_CTRLY = 90000019 UCBS$V~ONL INE = 99000004 
TTYSC “LF = 0000000 UCBS$V-1T_HANGUP = 0003 
TTYS$GC_DEF CHAR eeeeeere =X 0 UCBSW_CT_FLAGS = 000000DC 
TTYSGL DEF CHAR2 eeeeeeee XxX 0 UCBSW~CT-MAXMSG = 00000104 
TTYSGL~JOBCTLMB aeereree xX 03 UCBSW-CT-MAXREAD = 90000106 
TTY$GL—OWNUIC teeeeeee xX 02 UCBSW_CT-PARITY 00000134 | 
TTY$GU_DEF BUF eeeeeeee§ KX 0 UCBSW-CT-QCTPCNT : 9000000E | 
TTY T aeeeeeee XxX 02 UCB$W_CT-SPEED 0000011 
UCBSB “er _CRFILL 00000110 UCBSW~CT-WRTCNT = 00000102 
UCBSB~CT"ECO = 0000010D UCBSW"CT"WRTSIZ = 00000100 
UCBS$B_CT"LFFILL 0000111 UCBSW_DEVBUF SIZ = 90000042 | 
UCB$B~CT-VERSION = 0000010C UCBSW-DEVSTS = 0000006 
UCB$BDEVCLASS = 00000040 UCBSWTERRCNT = 00000082 | 
UCBSB_DEVTYPE = 00000041 CBSW_REFC = 0000005¢ | 
UCBSB_DIPL = 0000005 UCBSWRTT_SYSTYPE = 00000009 | 

UCBS$B_F IPL = 90000008 CBS$W~STS = 00000064 
UCBSE “RTT_LENGTH = 00000138 UNBIND$C_DISCONNECT = 00000004 
uC = 00000060 UNBIND$C~USER = 00000003 | 
UCBSL~CNT_ADDR 00000120 CB$L_AQ6 = 00000010 
UCBSL~CNT~FRC 0000011C VMS_BRDCST 00001054 R 03 
UCBSL_CNT_OVR 00000118 VMS~Q10 0000104C R 03 
UCBS$L_CNT~ TOE 00000114 w_IRNIT_BUFSIZ = 00000039 | 
UCBSL-CT_RBORT 00000130 | 
UCBSL—CT"EXCLUDE 0000012¢ 
UCBS$L~CT~ INCLUDE 00000128 
UCBSL_CT~LEGALMSG = 00000108 
UCBSL~CT“NETQBL = 000000EC 
UCBSL—CT"NETOFL = 000000E 8 
UCBSL-CT~PID 00000124 
UCBSL_CT~RIIRP = 000000C0 
UCB$L~CT~STALLQBL = Q00000F 4 
UCBSL~CT~STALLOFL = 000000F0 
UCBSL_CT_TOE = 900000E4 | 
UCBSL~C7—~W1IRP = 000000E0 
UCBSL—~CT—WRTCTP = 000000F8 
UCBS$L~CT-WRTCUR = QOO0000FC | 
UCBSL_DEVCHAR = esa tg 
UCBS$L~DEVCHAR2 = 600000 ¢ 
UCB$L_DEVDEPEND = 00000044 | 
UCBSL—DEVDEPND2 = 00000048 | 
UCBSL_~RTT_IRPBL = 900008¢ 
UCBSL-RTT~IRPFL = 0000008 
UCBSL_RTT~NETIRP = 5900 C 
UCBSL~RTT-NETUCB = 
UCBSL~RTT-NETWIND = 00000084 
UCB$L_ TL_BANDQUE = 0000009C 
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Psect synopsis (46) v04 


PSECT name Allocation PSECT No. Attributes 
. FO 80008 ( 0.) OO ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 000001 ( +183 4 ( -) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
eeeite PROLOGUE BONG, oes ( 165.) ¢ ( ¢°} NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
$$$1 15"DRIVER 00001262 ( 4706.) 03 ( -) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 
3$116_DRIVER 00000000 < 0.) 04 ¢ 4.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG | 
Guooweecusecesesouceceece + | 


CeO ese rere nae meme ace m= + 


| 
Phase Page faults CPU Time Elapsed Time | 
Initialization 29 00:00:00.06  00:00:00.42 
eg processing 129 00:00:00.54 00:00:01.81 
Pas 929 00:00:29.58 00:01:00.41 
Symbol table sort 00:00:04.31 00:00:09.13 
Pass 2 410 00:00:07.41 00:00:16.00 
Symbol table output 1 as Sha 9 00:00:00.45 
Psect synopsis output 0 00:00:00.02 00:00:00.02 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 1500 00:00:42.21 00:01:28.24 


The working set Limit was 3000 pages. 
254621 bytes (498 pages) of virtual memory were used to buffer the intermediate code. 
There were 220 pages of symbol table space at yecaiee to hold 3925 non-local and 204 local symbols. 

2 source Lines were read in Pass 1, "ain 31 object records in Pass 2 
56 pages of virtual memory were used to define 53 macros. 


Bee nee Re RO Bee Ree Ree Hey 


Macro Library name 


~-$255$0UA28 : CSHRLIBIREM.MLB; 1 
mt Ling # OBJ IRTPAD . MLB; 1 


-$52 UAcs*hs OBJJILIB.MLB; 3 
aes UAE SYS SBISTARLET. MLB: 2 1 
TOTAcs (all Libraries) 5 


4134 GETS were required to define 50 macros. 


There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:CTDRIVER/OBJ=OBJ$:CTDRIVER MSRC$:CTDRIVER/UPDATE=(ENHS:CTDRIVER) +EXECMLS/LIB+LIBS$:RTPAD/LIB*+SHRLIBS$:REM/LIB 
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